Windows herunterfahren kann Prg. im Tray nicht beenden.

[Garby]

Hallo,

meine Anwendung soll nur im Tray sichtbar sein und daher kein Hauptfenster haben.
Ich habe das wie Hier beschrieben gelöst.

Delphi-Quellcode:

Application.Initialize; 
  Application.Run; 
  repeat 
    Application.HandleMessage; 
  until Application.Terminated;

Jetzt habe ich das Problem, dass das Programm beim Herunterfahren von Windows manchmal nicht beendet wird. Das geht sogar soweit, dass Windows nicht herunterfährt.

Wird vielleicht eine Message nicht korrekt verarbeitet oder was kann der Grund dafür sein?

Danke im Voraus.

[dahead]

Hier und hier könntest du eine Antwort auf deine Frage finden.

[mumu]

Verarbeite mal diese Message WM_QueryEndSession

[Garby]

Hallo,

Diese Messages werden in TApplication.WndProc ja schon behandelt und zwar so:

Delphi-Quellcode:

        WM_ENDSESSION:
          if TWMEndSession(Message).EndSession then
          begin
            CallTerminateProcs;
            Halt;
          end;
        WM_QUERYENDSESSION:
          Message.Result := 1;

Ich kann diese Messages ja auch nur in TApplication verarbeiten, weil ich kein Hauptformular habe (Application.Mainform = nil).
Kann ich sonst noch was probieren?

[shmia]

Führt deine Anwendung Aufgaben durch, die längere Zeit (> 2s) in Anspruch nehmen ?
Dann sollte eine Prüfung auf Application.Terminated enthalten sein:

Delphi-Quellcode:

// das könnte sehr lange dauern:
for i:=1 to 99999999 do
begin
   CalculatePrimTeiler(i);
   if (i mod 10) = 0 then
   begin
      Application.ProcessMessages; // Botschaften behandeln
      if Application.Terminated then
         Exit;  // Programm ist eigentlich schon ein "Zombie"; schnell raus hier
   end;
end;