Task List

[matbrophy]

i currently use this code to hide program from ctrl alt del list:

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
 
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
 
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

this doesn't work in nt, so i wondered if there was some code that could hide a program from nt's task list

[crispin]

App.TaskVisible = False

[Hack]

Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const GW_OWNER = 4
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
 
 
'Hide the app from the task manager.
Public Sub HideApp(ByVal mainFrmHwnd As Long)
    Dim lRtn As Long    
    lRtn = GetWindow(mainFrmHwnd, GW_OWNER)
    lRtn = ShowWindow(lRtn, SW_HIDE)
End Sub