Hide Programmer - Win XP

\'Det funker ikke under winnt, men ? under winxp

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

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0

Public Sub MakeMeService()
Dim pid As Long, reserv As Long
  pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub

Public Sub UnMakeMeService()
Dim pid As Long, reserv As Long
  pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Form_Load()
  MakeMeService
    \'HIDE from CTRL-ALT-DEL-list
End Sub

Private Sub Form_Unload(Cancel As Integer)
  UnMakeMeService
End Sub

funker det under winxp?

Jep !!!

tak :-)