VB Code:
  1. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
  2.  
  3. Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
  4.  
  5. Const RSP_SIMPLE_SERVICE = 1
  6. Const RSP_UNREGISTER_SERVICE = 0
  7.  
  8. Public Sub MakeMeService()
  9.  
  10.     Dim pid As Long, reserv As Long
  11.  
  12.     pid = GetCurrentProcessId()
  13.  
  14.     'Register as service
  15.  
  16.     regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
  17.  
  18. End Sub
  19.  
  20. Public Sub UnMakeMeService()
  21.  
  22.     Dim pid As Long, reserv As Long
  23.  
  24.     pid = GetCurrentProcessId()
  25.  
  26.     regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
  27.  
  28. End Sub
  29.  
  30. Private Sub Form_Load()
  31.  
  32.     MakeMeService
  33.  
  34. End Sub
  35.  
  36. Private Sub Form_Unload(Cancel As Integer)
  37.  
  38.     UnMakeMeService
  39.  
  40. End Sub