Run App as Service using Kernel32 instead of SRVANY

[adale]

Is there a NT version equivalent of this code that runs in Win95 and hides applications from the task manager ?
And will it make applications run regardless of whether a user is logged in or not. I would rather use code instead of the SRVANY.EXE.

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

Sub Form_Load()
' Hide the application from
' the task manager (Ctrl+Alt+Del)
HideTask True
End Sub

Public Sub HideTask(Hide As Boolean)
Dim lHandle As Long
Dim lService As Long
' If Hide = True, register as a service
lHandle = GetCurrentProcessId()
lService = RegisterServiceProcess(lHandle, Abs(Hide))
End Sub

 

[madlarry]

Check out the following

http://msdn.microsoft.com/library/techart/msdn_ntsrvocx.htm

It describes how to use NTSVC.ocx to create NT services that will run under NT. I have used this method for several services without any problems.

Cheers,

Madlarry

 

[adale]

I couldn't get it to work in NT, not that I tried that hard, it's just that the error message was disheartening. So I looked for some other references to the problem and found an excellent sample programme that I could ravage. It is working (fingers crossed) very smoothly.

[

http://www.andreavb.f2s.com/vb_downloads.html

]

Unfortunately I couldn't retract my email request.
Thankyou very much for answering, and have a good weekend.