CloseQuery und Windows beenden

[Helmi]

Hallo,

ich hab folgendes "Problem":

Ich hab ein Programm das im hintergrund läuft.
Im CloseQuery der Form gibt es eine MessageDlg. Die ist nur dazu da, ob wirklich beendet werden soll.

Wenn jetzt Windows beendet wird, dann taucht auf einmal diese message auf - ist eine kurze Zeit da und dann beendet sich windows.

ich würde gerne die Message nicht anzeigen lassen, wenn sich windows beendet.

Ich hab mal ein wenig rumprogrammiert und hab folgendes gemacht:

Code:

private
  procedure WindowsEnd(var Msg:TWMEndSession);message WM_ENDSESSION; 


var
Windows_Session_End: Boolean;


procedure TForm1.WindowsEnd(var Msg:TWMEndSession);
begin
  inherited;
  //
  Windows_Session_End := true;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  If Windows_Session_End or
    (MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
    begin
      CanClose := true;
    end
  else
    CanClose := false;
end;

Weiss jemand noch nen besseren Code oder kann man den so lassen?

mfg
Helmi