Discussion :

[gudul]

Bonjour,

J'utilise le CooltrayIcon afin de mettre une icône dans le trayicon à coté de l'heure.
Je veux ne pas pouvoir fermer mon application lorsque l'on clique sur la croix. J'ai donc mis ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if FPeutFermer then
    CanClose := True
  else
  begin
    CoolTrayIcon.HideMainForm;
    Canclose := False;
  end;
end;

Donc, au lieu de fermer, je viens le mettre dans le trayicon et en cliquant sur le menu contextuel de mon icône, je viens mettre ma variable à true et je ferme l'application.

Mon problème est que, si je veux fermer la session windows, Windows passe par la méthode FormCloseQuery et ne ferme pas l'application et donc ne ferme pas la session.

Quelle est la procédure à adopter ?

merci

[Reisubar]

Il faut que tu interceptes le message WM_QUERYENDSESSION (fais une recherche sur ce forum). A partir de là, autorises Windows à se fermer en modifiant le message (je ne sais plus exactement quel champ doit être mis à 1...) et profites en pour mettre FPeutFermer à true...

[mico2]

Voici comment j'ai procédé dans un de mes programmes :

Code :

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

1
2
3
4
5
 
 
  public
    { Déclarations publiques }
    PeutFermer: Boolean;

Code :

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

1
2
3
4
5
 
 
 private
    { Déclarations privées }
    procedure WMQUERYENDSESSION(var msg : TMessage); message   WM_QUERYENDSESSION;

Code :

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

1
2
3
4
5
6
 
 
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=PeutFermer;
end;

Code :

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

1
2
3
4
5
6
7
 
 
procedure TMainForm.WMQUERYENDSESSION(var msg : TMessage);
begin
PeutFermer:=True;
Msg.Result:=1;
end;

[gudul]

merci.