Rechner fährt nicht mehr herunter

[ManuMF]

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.