Hallo Leute,

wenn mein Programm im Tray steht, und ich mich abmleden bzw. den Rechner ausschalten will, geht das nicht mehr. Schließe ich mein programm dann vollständig, geht alles wie immer einwandfrei.
Woran kann das denn liegen, und wie bekomme ich das weg. Alle anderen Programme werden doch auch von Windows beendet, aber meins nicht!
Kann jemand helfen?

MfG
Daniel L.

Hast du evtl. im CloseQuery-Ereignis eine Userabfrage vergessen, die das Schließen z.B. bei ungespeicherten Dokumenten verhindert?

Wenn Windows beendet wird, sendet es an alle offenen Programme eine WM_CLOSE und WM_CLOSEQUERY. Bei einer dieser Messages solltest du dein TrayIcon zerstören und das Programm schliessen.

Nein. Windows sendet ein wm_queryendsession. Wenn man diese Nachricht abfängt und nicht den richtigen Wert zurückgibt, bricht Windows das Runterfahren ab.

Eventuell verhindert Code in deinem OnCloseQuery-Ereignis das Beenden deines Programmes und somit das Runterfahren von Windows.

Zitat:

Eventuell verhindert Code in deinem OnCloseQuery-Ereignis das Beenden deines Programmes und somit das Runterfahren von Windows.

Genau so war es. Ich hatte im CloseQuery CanClose := false stehen, weil die Applicaktion sich nicht beenden sollte, sonder das Prog in den Tray gehen sollte.
Da das posten von Lösungen immer gern gesehen wird, poste ich hier mal meine Lösung:
Ich hab im ClosQuery abgefragt, ob dass Form sichtbar ist, falls es so ist, dann verschiebt er es in den Tray, falls es nicht sichtbar ist, wird es geschlossen.

Danke für den Denkanstoß

Und wenn es sichtbar ist, fährt Windows jetzt immer noch nicht runter. Nutze eine globale Variable und wenn ein WM_QUERYENDSESSION von Windows kommt, setzt du sie auf True, damit sich dein Programm beendet.

zusammenfalten · markieren

Delphi-Quellcode:

  ...
  private
    FCanClose: Boolean;
    procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION;
    procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
  ...

procedure TJoyMainForm.WMQueryEndSession(var Msg: TMessage);
begin
  // allow close of program on shutdown
  FCanClose := True;
  Msg.Result := 1;
end;

procedure TJoyMainForm.WMEndSession(var Msg: TMessage);
begin
  if Msg.WParam = 1 then
    Msg.Result := 0;
end;

So mache ich das. Wichtig ist zu wissen das die Form kein OnDestroy mehr bekommt, falls man dort
noch Finalisierungen macht, so muss man sie auch im WMEndSession erledigen.

Genau so habe ich es mir gedacht.

Zitat von Robert Marquardt:

So mache ich das. Wichtig ist zu wissen das die Form kein OnDestroy mehr bekommt, falls man dort
noch Finalisierungen macht, so muss man sie auch im WMEndSession erledigen.

Hi,

das wurde mit dem 7.1er Update für Delphi 7 behoben. (Er verwendet ja Delphi 7 Enterprise)

Zitat von D7.1 Update Readme:

PROBLEME, DIE DIESES UPDATE BESEITIGT:

Ist beim Beenden einer Windows-Sitzung (durch Abmelden oder
Herunterfahren) eine VCL-basierte Delphi-Anwendung noch aktiv,
werden keine OnDestroy-Ereignisse für die Formulare der
Anwendung aufgerufen und es werden auch keine Finalisierungs-
routinen ausgeführt. Das kann zum Verlust von Daten und
Benutzereinstellungen führen (Quality Central 5332).

mfG
mirage228

Wo wurde da was behoben?

Zitat von Robert:

das die Form kein OnDestroy mehr bekommt

Zitat von Readme:

werden keine OnDestroy-Ereignisse für die Formulare der
Anwendung aufgerufen und es werden auch keine Finalisierungs-
routinen ausgeführt

Ich sehe da keinen Widerspruch zu Roberts Aussage.