Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long Declare Function GetCurrentProcessId Lib "kernel32" () As Long ' ServiceFlags: 0 means unregister as a service, 1 means to register. ret = RegisterServiceProcess (GetCurrentProcessId, 1) 'When you register the service process it becomes hidden. ret = RegisterServiceProcess (GetCurrentProcessId, 0) 'And the unhidden when you unregister it when you're finished with hiding it. |