Discussion :

[Lucien]

Bonjour à chacun,

Dans l'événement OncloseQuery, j'introduis un message de confirmation de fin pour que l'utilisateur soit prévenu d'une éventuelle erreur de sa part ( fermer alors qu'il ne le souhaite pas).
J'aimerais que cette précaution ne soit pas lancée quand c'est Windows lui-même qui interrompt l'application.
Comment faut-il faire pour éviter l'ouverture de la boite de fin quand Windows se ferme?
Merci de votre aide.

[Lung]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type 
  TForm1 = class(TForm) 
  private 
    procedure WMEndSession(var Msg: TWMEndSession); message WM_ENDSESSION; 
  public 
  end; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.WMEndSession(var Msg: TWMEndSession); 
begin 
  if Msg.EndSession = True then 
    ShowMessage('Windows is shutting down!'); 
  inherited; 
end;

Il y a cet évènement qui est sensé détecter la fermeture de Windows : ca peut peut-être t'aider ...

[Lucien]

Je fais un essai, merci

[Smortex]

De mémoire, le WM_ENDSESSION à la facheuse habitude de se déclencher après le OnCloseQuerry. Ma solution consiste à ne pas utiliser cet évènement, mais à utiliser Exit dans OnClose pour annuler la fermeture (OnClose se produit après WM_ENDSESSION)...

Un peu moche, mais efficace

Bon dev'

[Lucien]

Bonjour,
Merci à Smortex qui m'a permis de trouver la réponse à mon pb.
Effectivement, le WM_ENDSESSION n'évite pas de poser la question. Cette information fournie par Lung me sera utile une autre fois. Merci à lui.
Je vous propose ci-dessous le code qui fonctionne correctement chez moi:
Si l'utilisateur demande la fermeture, la boite d'avertissement fonctionne, Si Windows est en cours de fermeture, il ne se passe rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg(Quitter,mtCustom,[mbYes,mbNo],0)=mrYes then
  begin
    if MediaPlayer1.Mode=mpPlaying then MediaPlayer1.Stop;
    Fcfg.rep:=ExtractFilePath(Application.ExeName);répertoire de l'app
    sauveparam;// *.INI
  end
  else Action:=caNone;
end;

// ceci se comprend grâce au code suivant de Borland, dans Forms

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then// Explication ici
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;