Also ich habe es auch viele Arten versucht:
Windows benötigt immer 2 anläufe sich zu beenden wenn mein Programm aktiv -- und mein Programm reagiert auch erst beim 2ten mal auf die Beenden Message von Windows... (Geprüft mittels MessageShow)
Ich habe folgende Codes bzw. Varianten versucht:
Delphi-Quellcode:
procedure TForm1.shutdownevent(var Msg:TWMQUERYENDSESSION);
begin
Msg.Result:=1;
close; // <= ohne dieses zusätzliche Schliessen ging es nicht
Inherited;
end;
Delphi-Quellcode:
procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Inherited;
Message.Result := 1;
end;
Delphi-Quellcode:
procedure TForm1.WMQueryEndSession (var M: TWMQueryEndSession);
begin
inherited; //Wichtig
Application.Terminate;
end;
Habe auch schon CanClose aus der Anwendung entfernt...
Hilft alles nichts
