Por el momento solo tengo este código fuente que es compatible unicamente con Windows 95 / 98. Su finalidad es convertir nuestro programa en un proceso, con lo cual, nuestro programa no aparecera en el administrador de tareas. Estoy averiguando sobre como hacerlo en Windows XP, aunque sospecho que en ese caso se usan servicios...
Código:
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Sub Command1_Click()
' ServiceFlags: 0 significa desregistrar como servicio, 1 significa registrarlo.
ret = RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub
Private Sub Command2_Click()
'Registramos el servicio como un proceso, por lo cual, nuestro programa queda oculto
ret = RegisterServiceProcess(GetCurrentProcessId, 0)
End Sub