Programm in der TNA Windows kann nicht herunterfahren

[MrDevil]

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