title image


Smiley Ein Beispiel dazu...
Natürlich mal wieder vom KPD-Team:



Const RSP_SIMPLE_SERVICE = 1

Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

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

Public Sub MakeMeService()

Dim pid As Long, reserv As Long

'Get the current process ID

pid = GetCurrentProcessId()

'Register as service

regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

End Sub

Public Sub UnMakeMeService()

Dim pid As Long, reserv As Long

'Get the current process ID

pid = GetCurrentProcessId()

'Unregister as service

regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)

End Sub

Private Sub Form_Load()

'KPD-Team 1999

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

MakeMeService

'Right now, you're program is hidden from the CTRL-ALT-DEL-list

End Sub

Private Sub Form_Unload(Cancel As Integer)

UnMakeMeService

End Sub

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: