Extinction auto de l'ordinateur avec arret propre des applis et process
cs_mymic
Messages postés10Date d'inscriptionjeudi 28 mars 2002StatutMembreDernière intervention18 mai 2011
-
19 avril 2002 à 08:50
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 2009
-
19 avril 2002 à 14:53
Bonjour,
Je souhaiterais créer un prgramme VB qui éteind un ordinateur proprement en arretant les applications en cours dessus.
Quelqu'un s'est t'il comment faire ?
A voir également:
Extinction auto de l'ordinateur avec arret propre des applis et process
'API's
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("Ce programme va arrêter votre ordinateur. Appuyez sur OK pour continuer ou Cancel pour annuler l'action.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'Force tous les process à terminer et Etteint l'ordi
ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN , 0)
End Sub
ATTENTION: pour NT ca ne doit pas marcher correctement si tu n'as pas les privilèges nécessaires... Car il y a une notion de privilège