Discussion :

[ybruant]

Bonjour,

J'ai une application assez volumineuse qui me donne satisfaction,
mais je viens de découvrir qu'elle refuse de s'arrêter automatiquement
comme elle le doit dans le cas extraordinaire où elle est active alors
que je demande à Windows (XP SP2) de s'arrêter Du coup
Windows ne s'arrête pas non plus (et je peux continuer à travailler,
voire arrêter manuellement mon appli qui n'est pas du tout plantée).

En revanche, dans les cas ordinaires, si je clique sur la p'tite croix
pour arrêter, (ou toute autre commande intrinsèque comme Ctrl F4)
elle s'arrête et tout va bien.

J'ai mis un peu des traces, et dans les deux cas, mon appli passe bien
par CloseQuery dont elle sort avec CanClose True, elle passe bien par
Close mais, dans le cas de l'arrêt de Windows, elle ne passe pas par
le Destroy

J'ai beaucoup de fiches qui se référencent plus ou moins les unes les
autres aussi m'est-il quasiment impossible de simplifier jusqu'à ce que
le problème disparaisse.

J'imagine que ça pourrait être une de mes fiches (pas la principale)
dont le CanClose serait False ou dont le Destroy se planterai sans
erreur, mais c'est là que j'ai besoin d'aide :

• Quelle différence celà fait il pour mon appli qu'elle soit arrêtée
  normalement ou via message de close suite à arrêt de Windows ?
  
  Comment dois-je m'y prendre pour tracer et débugger ce bazard ?

Merci.

[sjrd]

Un recherche dans le forum Delphi avec WM_QUERYENDSESSION comme mot-clé. Tu trouveras la solution

[ybruant]

Hello, merci pour la réponse, elle m'a bien aidé

Sur le message WM_QUERYENDSESSION, j'ai mis

Code :

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

1
2
3
4
5
6
procedure TMaForm.WMQUERYENDSESSION(var Msg: TWmQueryEndSession);
begin
  Inherited;
  Msg.Result := 1;
  Application.Terminate;
end;

C'est efficace, et mon appli s'arrête quand je demande l'arrêt de Windows,
c'est d'ailleurs l'appel à Application.Terminate qui le fait, la valeur de
retour affectée au message ne semblant pas avoir d'effet détectable.

MAIS,

Le problème me semble repoussé car les autres appli en cours, elles, ne
se ferment pas, ni Windows, comme si une chaîne de quelquechose était
cassée ?

Salutations.

[sjrd]

Je crois qu'il faut mettre :

Code :

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

Msg.Result := 0;

Et mettre Application.Terminate dans WM_ENDSESSION.

[ybruant]

J'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm_MainPhoto.WMQUERYENDSESSION(var Msg: TWMQueryEndSession);
begin
  Inherited;
  Msg.Result := 0;
  Application.Terminate;
end;
 
procedure TForm_MainPhoto.WMENDSESSION(var Msg: TWMEndSession);
begin
  Inherited;
  Msg.Result := 0;
  Application.Terminate;
end;

Mais ça ne change rien : mon appli se ferme, mais windows ne continue
pas à se fermer ?

[dacid]

Je suis confronté au meme pb, as tu trouvé une solution ?

Merci d'avance.

[Reisubar]

Quels composants tiers utilises tu ?... J'ai eu un problème de ce genre avec le composant TJvTrayIcon, il y a quelques temps...

[dacid]

ui, c'est bien le composant que j'utilise.

En fait, j'ai tout déporté dans le onClose et non dans le onQueryClose et ça marche...

je ne comprends pas pourquoi le onQueryClose mettrait fin à l'instruction de fermer windows plus que le onClose :

[asuka]

Bonjour,

J'ai également eu ce problème. Alors pour ceux qui comme moi ont galéré pendant 20 ans sur les forum parce que leur appli empêchait Windows de se fermer, je vous conseille d'aller jeter un coup d'oeil là dessus :

- http://www.cubicreality.com/2007/03/...utdown/#more-8
- http://www.bsdg.org/SWAG/DELPHI/0414.PAS.html

En gros, lorsqu'un composant (ou tout autre type de classe) utilise AllocateHWND pour allouer un Handle et qu'il surcharge WndProc, le fait de ne pas appeler DefWindowProc dans WndProc empêcherait la propagation du message de fermeture de session.

De plus, la fonction FormClose ne serait pas forcément appelée lors de la fermeture par Windows et donc l'ensemble des destructions et libération de mémoire que vous pourriez y faire serait également à faire dans
WMQueryEndSession (perso je le fait dans WMEndSession quand le paramètre Msg.EndSession est à TRUE).

Ca m'a permis de résoudre mon problème alors si ça peut servir à quelqu'un...