Hmm, ich denke, du hast was vergessen. Liegt wohl daran, dass du mehrere Code-Teile von hier einfach eingefügt hast, ohne sie für deinen Fall anzupassen.
Überprüfe folgendes: In der
Unit ziemlich weit oben steht
Delphi-Quellcode:
type
TForm1 = class(TForm)
// Hier steht jede Menge Zeug ;-)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
In der Zeile nach dem
{ Private-Deklarationen } sollte das hier stehen:
procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
und irgendwo unten im Code dann
Delphi-Quellcode:
procedure TForm1.WMQueryEndSession(var Msg: TMessage);
begin
Msg.Result := 1;
CloseReally := true;
end;
Dabei ist wichtig, dass du den Namen deines Formulars anpasst, also wenn es nicht Form1 heißt, musst du es für den unteren Code-Teil in meinem Beitrag ändern.