Mona pplication empèche la fermeture de Windows

Bonjour
J'ai écrit une application Delphi qui empèche la fermeture de Windows si cette application tourne.
Si je fais Arrèter, l'écran passe en sombre puis revient automatiquement en normal avec focalisation sur mon application.

Je dois absolument fermer mon application pour fermer Windows.
Pourtant cette application se ferme normalement par  Ctl/Alt/Sup et fin de tâche.
J'ai d'autres applications Delphi pour lesquelles ce phénomène n'apparait pas.
Quelqu'un a t'il une idée du problème ?

Gabriel

eteint l'ecran ...

un p'tit bout de code en passant ?

---

Croc (click me)

Salut,

N'as-tu pas assigné à ta Form principale un évenement OnCloseQuery ou OnClose dans lequel tu n'autorises la fermeture qu'à certaines conditions ?

A +
Thierry

ça sens le CanClose := false; en dur =)
+1 pour le bout de code pour voir un peu ;)

Bonjour.
L'évènement OnClose de la fiche renvoie effectivement sur une procédure de fermeture de l'application qui libère toutes les ressources utilisées par le programme et sauvegarde le contexte de la dernière session ouverte.
Cette procédure de fermeture se termine par un "application.terminate".
Ce que je ne saisis pas très bien, c'est pourquoi un Ctrl/Alt/Sup + fin de tâche ferme le programme sans problème alors que Windows ne veut pas le fermer s'il est ouvert (que ce soit win98 ou XP)

Le programme fait plus de 15000 lignes de code et je ne vois pas très bien quelles lignes je pourrais vous soumettre !!!
Vous pouvez d'ailleurs le télécharger sur mes pages persos. Il s'appelle Sat_Explorer et est téléchargeable sur le lien suivant (il est gratuit) :
http://rivat.chez-tiscali.fr/logiciel.htm
A l'usage des personnes qui font de la poursuite satellites ...ou qui veulent voir la Station Spatiale Internationale briller dans le ciel lorsqu'elle passe au-dessus de la France ... Ce n'est peut-être pas la tasse de thé des lecteurs de ce forum !
Gabriel

http://rivat.chez-tiscali.fr/logiciel.htm = lien mort.
moi je demande a voir les procedures : OnClose, OnCloseQuery, OnDestroy et la procedure du bouton/menu qui lance la fermeture.

Salut,

Essaie en supprimant le 'Application.Terminate' dans ta procédure de fermeture qui est inutile (voire nuisible) puisque cette procédure est appelée dans l'événement OnClose de ta form principale.

1000 excuses pour le lien : je ne me suis pas encore fait au changement de Tiscali en Alice !!!
[ Lien ]

Le application.terminate est nécessaire car sur le OnClose j'ai été obligé de mettre un action:=none avant d'aller dans ma procédure de fin de programme sinon j'avais des pbs.
J'ai essayé d'enlever le action:=none mais ça ne change rien.
L'action sur la petite croix de fermeture de la fenêtre principale fonctionne très bien.
L'évènement OnClose ne contient que 2 instructions :
action:=none;
menuquitter.click;

La procédure menuquitter.click fait plein de trucs comme je l'ai écrit avant et se termine par application.terminate.. Et tout ça marche normalement sauf qu'un jour un utilisateur a voulu fermer Windows sans fermer Sat_Explorer et s'est étonné de voir que Windows ne voulait pas se fermer ! (Ce que je n'avais pas remarqué moi-même !)
Ce qui serait intéressant de savoir c'est que fait Windows avec les applications qui tournent lorsque l'on fait Démarrer/Arrèter ?
Gabriel

Il clic à ta place sur la croix =)
Crée une nouvelle appli. Dans le onClose, ecrit "Action := caNone;", fait F9 et clic la croix pour fermer : ça ne se ferme pas.
Je ne comprends pas l'interet de mettre action := canone puis d'appeler une proc.
Autant mettre le contenu de la proc dans le OnClose non ?
Ce que je mets dans le OnCloseQuery c'est "CanClose := MessageDialog(..)=mrYes" tu vois ? et si on réponds "oui" alors le OnClose est executé.
me suis fait comprendre ? ai je fais des erreurs moi aussi ? ^^

"Cette procédure de fermeture se termine par un "application.terminate"."


RHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!

---

Croc (click me)