Cacher mon pgm de la fenêtre Crt+Alt+Suppr

Question

SVP, je serai tres reconnaissant a celui qui m'aidera a faire que mon application ne puisse pas être dechagee par la combinaison Ctrl +Alt+Del

stephane · Answer

salut

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal
dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
    Dim pid As Long
    Dim regserv As Long

    pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
    Dim pid As Long
    Dim regserv As Long

    pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

c'est une source sur le site...

a+

Stephane

VBEasy: Site VB
VBEasy@caramail.com
Http://virtualprog.multimania.com

Cacher mon pgm de la fenêtre Crt+Alt+Suppr

1 réponse

Discussions similaires