Declarations
Copy the following code into
the declarations section of a module:
Public
Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess
_
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
Procedures
To remove your program from
the Ctrl+Alt+Delete list, call the
MakeMeService procedure:
Public Sub
MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid,
RSP_SIMPLE_SERVICE)
End Sub
To restore your application
to the Ctrl+Alt+Delete list, call the
UnMakeMeService procedure:
Public
UnMakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
'End Code
Don't forget to unregister
your application as a service before it
closes to free up system resources by
calling UnMakeMeService.