Discussion :

[vlksoft]

Bonjour à tous,

Je voudrais créer une application qui s'ouvre directement à l'ouverture de Windows. Et quand je la ferme, la machine doit se fermer aussi. Comment pourrai-je le faire? (XP Pro)

merci

[stigma]

Dans le dossier de démarrage de XP !

[vlksoft]

Pour le démarrage, là ça va. C'est beaucoup plus pour l'extinction que ça me pose de problème. Quel est le code que je dois mettre sur le bouton?

merci

[stigma]

Je suppose qu'il faut passer par une API ou autre afin d'envoyer un "ShutDown" à la machine. A creuser donc.
Teste ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub Apagar()
Shell ("Shutdown -s -t 0")
End Sub

[Delbeke]

Une petite recherche dans la FAQ
Comment arrêter ou bien redémarrer le système ?
http://vb.developpez.com/faq/?page=S...etRedemSysteme

[stigma]

Et on avait ça sous la main ! Merci, je note.

[vlksoft]

Merci pour vos réponses

J'ai utilisé l'API donnée par Delbeke .
J'ai bien mis le code dans un module. Et maintenant sur le form, j'ai mis un bouton qui utilise l'API

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0)
End Sub

Et rien ne se fait et cette ligne apparait en rouge. Que faire?

merci

[Delbeke]

Retire les parenthèses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ExitWindowsEx EWX_SHUTDOWN Or EWX_FORCE, 0

[vlksoft]

Je viens de retirer les paranthèses et voici le message qui apparait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Erreur d'éxecution 49    Convention d'appel de DLL incorrecte

merci

[ProgElecT]

Celà depend de la façon d'avoir declaré EWX_... (si elles ont été déclarées )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Const EWX_LOGOFF = 0 
Const EWX_SHUTDOWN = 1 
Const EWX_REBOOT = 2 
Const EWX_FORCE = 4

Sinon tu peux remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Command1_Click()
Dim Ret As Long
Ret = ExitWindowsEx(1 Or 4, 0)
End Sub

[vlksoft]

L'erreur reste la même.

merci

[vlksoft]

Ce ne serait un pas un problème de bibliothèque de référence?

merci