Rechner fährt nicht mehr herunter

[ManuMF]

Oder: Das hier übernehmen:

Delphi-Quellcode:

var CloseReally: Boolean = false;

// Dann deinen Code...

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := CloseReally;
  Form1.Hide;
end;

// und den von HuxXx

procedure TMainForm.WMQUERYENDSESSION(var msg: TMessage);
begin
  msg.Result := 1;
  CloseReally := true;
end;

Das sollte funktionieren.