Herunterfahren verhindern, Programm nicht beenden

[BlueStarHH]

Zitat von Sherlock:

Zitat von Der schöne Günther:

Dumme Idee: Wenn ich den Quelltext in Vcl.Forms richtig verstehe, dann gibt eine VCL-Anwendung auf WM_QUERYENDSESSION immer True (1) zurück.

Immer wieder schön zu sehen, wie einem die VCL Arbeit abnimmt

Sherlock

Daher gibt es ja meinen eigenen Handler, der 0 zurückgibt:

Delphi-Quellcode:

procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

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