Discussion :

[Jéremy A]

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,

[delphi-fan]

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

A+

[Sephiroth Lune]

Code :

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

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

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

[Jéremy A]

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

Code :

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

1
2
3
4
5
6
7
8
var
   shutdown:boolean;
 
procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
inherited;
shutdown := true;
end;

Ensuite :

Code :

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

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]

[Sephiroth Lune]

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

[Jéremy A]

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 :

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

1
2
CanClose = false;
Exit;

[Jéremy A]

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

Code :

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

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 :

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

1
2
Action := caNone;
Exit;

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