Détecter l'arrêt du système ?

Bonjour,

Je rencontre un petit problème avec une application assez simple. Cette application fonctionne en permence tant que Windows tourne ( je l'a lance au démarrage ).
Je veux éviter que l'utilisateur la ferme par erreur, donc lorsque l'utilisateur tente de la fermer, je demande confirmation.

Or lorsque le PC s'arrête, j'aimerai que ce message ne s'affiche pas ( il n'a pas lieu d'être ). Je ne vois pas comment faire.

Merci d'avance,

Avec cela, ça devrait aller : :wink:
http://www.delphitips.com/tipstext.cgi?tipsId=12

A+

Code:

---

1 2 3 4 5 6 7 8 9 10 11

// déclaration de la procedure procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;   // fermeture du programme par l'arret de windows[/color] procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession); begin inherited; // ton code lors d'un arret de windows, genre tu pourrais mettre // une variable a false, et tester dans ton OnClose si elle est a true // tu affiches un message, sinon tu l'affiches pas end;

---

cette procedure permet de vraiment controler l'arret de windows, moi je trouve ca plus pratique le OnCloseQuery

________________________
:tagcode: [Balises codes rajoutées par Lil_jam63]
Pensez aux balises, svp, c'est plus agréable à lire et plus compréhensible.

Je n'ai pas encore résolu le problème...

Code:

---

1 2 3 4 5 6 7 8

var shutdown:boolean;   procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession); begin inherited; shutdown := true; end;

---

Ensuite :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if shutdown=false then begin // Je demande confirmation, puis avec CanClose, je ferme ou non l'application end // Sinon, l'application se ferme

---

Mais le problème, c'est que je crois que le OnCloseQuery se produit AVANT que la programme détecte la fermeture de Windows, donc le message de confirmation de la fermture s'affiche dans tous les cas...[/quote]

ta var ShutDown declare la comme suit:

ShutDown: bool = false;

et petit raccourcit, pour tester un bool tu peux faire comme suit:

if not ShutDown then // revient a 'if ShutDown = false

if ShutDown then // revient a if ShutDown = true

comme ta variable n'est pas definbie au depart, bin il prend une valeur, qui est celle qui dit d'afficher un message... enfin je crois que c'est ca, sinon essaye de plutot mettre ton code de message dans le OnClose plutot que le OnCloseQuery, car moi j'ai fait ca et ca marche :)

Je vais essayer ça, mais si je mets la confirmation pour quitter l'application dans le OnClose, comment est ce que je reviens en arrière ( c'est à dire que je ne ferme pas l'application ) si l'utilisateur ne confirme pas qu'il vaut quitter ?
Dans le OnCloseQuery, je faisais :

Code:

---

1 2	CanClose = false; Exit;

---

J'ai trouvé... Dans le OnClose :

Code:

---

1 2	if ShutDown then // windows ferme l'application Application.Terminate;

---

Ensuite, donc si l'ordinateur n'est pas en train de s'arrêter, je demande confirmation, et si l'utilisateur ne confirme pas :

Code:

---

1 2	Action := caNone; Exit;

---

Pour ne pas fermer l'application. Et ça marche !
Merci pour vos réponses.