ShutDown Windows 2000/xp

Signaler
Messages postés
15
Date d'inscription
jeudi 28 février 2002
Statut
Membre
Dernière intervention
28 septembre 2006
-
Messages postés
15
Date d'inscription
jeudi 28 février 2002
Statut
Membre
Dernière intervention
28 septembre 2006
-
Bonjour
Est-ce que vous connaisez la fonction de fermeture de windows ( ou la procedure ) sous VB6. L'ancienne fonction que j'utilisait marchait sous 98 et me mais ca marche plus sous 2000.
Koment ke je dois faire ?
Merci de votre aide.

Brodeur

2 réponses

Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
(Ce n'est pas de moi)

Const EWX_FORCE = 4
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_SHUTDOWN = 1
Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Function RestartWindows() As Boolean
RestartWindows = CBool(ExitWindowsEx(EWX_REBOOT, 0))
End Function

Function ShutDownPC() As Boolean
ShutDownPC = CBool(ExitWindowsEx(EWX_SHUTDOWN, 0))
End Function
Function LogOffPC() As Boolean
ShutDownPC = CBool(ExitWindowsEx(EWX_LOGOFF, 0))
End Function
0
Messages postés
15
Date d'inscription
jeudi 28 février 2002
Statut
Membre
Dernière intervention
28 septembre 2006

Merci
0