Hiding a task from task manager

[Tadej]

How do I do that?

Thanx, Tadej

[HeSaidJoe]

http://forums.vb-world.net/showthrea...threadid=35062

[Jop]

You do it like this:

Private Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Sub MakeMeService()
Dim pid As Long
Dim reserv As Long

pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

Private Sub UnMakeMeService()
Dim pid As Long
Dim reserv As Long

pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Form_Load()
MakeMeService
End Sub

Private Sub Form_Unload(cancel As Integer)
Dim frm As Form
UnMakeMeService
For Each frm In Forms
   Unload frm
   Set frm = Nothing
Next
   End
End Sub