Programm beendet bei Windows Restart nicht

[generic]

du musst auf die Nachricht "WM_QUERYENDSESSION" reagieren:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    [...]
  private
    procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
    [...]
  end;

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  Message.Result := 1;
end;