WM_QUERYENDSESSION verwenden

[Helmi]

Hallo,

ich mach das in meinen Programmen immer so:

Delphi-Quellcode:

private
    procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QueryEndSession;

{...}

procedure TMainForm.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  //Windows erlauben zu beenden
  Msg.Result := 1;

  //Wenn Windows beendet wird, dann Variable auf true setzen
  Windows_Session_End := true;

  //Programm schliessen
  close;

  inherited;
end;

Mit der Variablen "Windows_Session_End" umgeh ich die Frage ob wirklich beendet werden soll, beim Schliessen des Programmes
und Speichere gleich drauf los