Wie beendet Windows mein Programm

[Robert Marquardt]

Delphi-Quellcode:

procedure TTitel.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  inherited;
  Msg.Result := 1;
end;

So ist es richtig.