Mon appli bloque la fermeture de Windows

Bonjour, Mon application, qui se lance au démarrage de Windows, reste en arriere plan en permanence. Jusqu'à maintenant mon application bloquée la fermeture de Windows quans l'utilisateur demandé l'arret. Depuis le code ci-dessous, mon appli se ferme mais l'arret de windows s'interrompt, il faut donc le refaire arreter Windows pour que ca s'arrete enfin. Je doit donc fermer en deux fois ! Si quelqu'un sait m'améliorer le code ci-dessous je lui en serait bien reconnaissant. Cordialement, // Detecte la fermeture de Windows (demandée par l'utilisateur) procedure TForm4.WMQueryEndSession(var Message: TWMQueryEndSession); begin Message.Result := 1; end; // Execute des operations pendant la fermeture de Windows procedure TForm4.WM_ENDSESSION(var Message: TWMQueryEndSession); Begin Application.Terminate; // On ferme l'application End;

Bonsoir,
Tu as oublié l'instruction inherited
Voilà le code corrigé (remarque: il est inutile d'utiliser les deux messages Windows WMQueryEndSession et WMEndSession, un seul suffit pour réaliser ce que tu recherches) :

procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TForm4.WMQueryEndSession;
begin
   inherited;
   Application.Terminate;
   Msg.Result := 1;
end;

@+
Nico { www.ni69.info }

Merci de ta réponse, je vais tester mais j'ai quand même une question comment "Msg.Result := 1;"va s'executer si avant je fais un application.terminate ?

A j'oubliez aussi, est-ce que ce code doit-être mis sur toutes les fenetres potentiellement ouvertes au moment de la fermeture de Windows ou juste sur la fenetre principale ?

NON helas, aprés avoir testé :

procedure TForm4.WMQueryEndSession;
begin
   inherited;
   Application.Terminate;
   Msg.Result := 1;
end;

Ca ne fonctionne pas, ça me ferme certes mon application mais windows ne se ferme pas, je dois le faire donc en deux fois.

Non !
Windows terminera ton application lui-même comme un grand. Enleve le Application.Terminate et ça devrait rouler.

Cordialement, Bacterius !

@vieuxpere:
Désolé, une petite inversion de lignes... J'ai pas trop réfléchi à vrai dire il était tard ! Il faut bien sûr lire :
   inherited;
   Msg.Result := 1;
   Application.Terminate;
Mais en pratique, il est vrai que
   Msg.Result := 1;
est facultatif, vu qu'il est géré par l'appel à inherited;
Cette procédure mise sur la form principale est amplement suffisante. Cela marche très bien pour moi je viens de tester, donc regarde peut-être au niveau des autres applications qui tournent en même temps (cf taskmgr). Peut-être que le problème ne vient pas de la tienne!

@Bacterius:
Tout dépend de si l'application est dans une phase bloquante ou non (procédure longue en cours, boucle qui n'est pas encore finie...)
Dans ce genre de cas, l'utilisation d'un flag associé à la boucle en cours peut être utile (on modifie le flag dans la procédure liée au WMQES, et cela est répercuté dans la boucle...)

@+
Nico { www.ni69.info }

En général il faut tout faire pour respecter les choix de l'utilisateur.
Si l'utilisateur veut fermer, tu ne dois pas être en boucle de travail.
M'enfin des fois evidemment il faut attendre quelques minutes par exemple pendant une sauvegarde de base de données de dernière minute, mais dans ce cas-là la moindre des choses est d'afficher une messagebox avec marqué "patientez svp" en gros. Ou bien sur Vista, appeller ShutdownReasonBlockCreate.
Mais effectivement ça peut être utile d'utiliser un flag pour savoir de quoi on parle ...

Cordialement, Bacterius !

"Si l'utilisateur veut fermer, tu ne dois pas être en boucle de travail."
Je ne suis pas d'accord avec cela. Par exemple, si tu es en train de parcourir tous les fichiers du disque pour une recherche particulière qui dure longtemps, et qu'en plein milieu, l'utilisateur décide inopinément de quitter windows, il faut stopper la boucle. Là est l'utilité d'un flag. Mais c'est loin d'être le seul cas...

@+
Nico { www.ni69.info }

Je n'ai pas dit le contraire, je dis qu'il faut éviter les longs traitements qui empêchent Windows de fermer. Mais je me suis mal exprimé je le reconnais. En fait on va mettre à True une variable booléenne globale quand on veut stopper la boucle, et la boucle, à chaque itération teste la variable et se casse si c'est à True (en gros, après on peut utiliser une variable de type Integer pour spécifier plusieurs types de réactions, etc ...) ?

Cordialement, Bacterius !