Zitat von
grenzgaenger:
oder du machst 'n kleinen timer, wo du nach 'n paar sekunden, automatisch das close aufrufst.. z.b. nach 3 oder 5 sekunden...
Was soll so ein Gefrickel, wenn die Lösung schon genannt worden ist?
In die Private-Deklaration folgendes
procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
und ausgeführt sieht das dann so aus:
Delphi-Quellcode:
procedure TFRMmain.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Inherited;
Message.Result := 1;
end;