Ich habe ein kleines Updateprogramm erstellt, dass mit Windows startet, immer aktiv ist und durch Klick auf TrayIcon geöffnet werden kann. In OnCloseQuery der Hauptform habe wird eine MessageBox erstellt, in der Benutzer gefragt wird, ob das Programm wirklich beendet werden soll. Das Problem ist, dass diese Meldung auch erscheint, wenn Windows beendet wird. Das möchte ich verhindern. Wir kann ich das machen?

Vielleicht in dem du das "Windowsereignis" vom Aufrufen der Messagebox ausschließt oder nur auf Benutzereingaben per Maus und Tastatur reagierst.

HeinzJ

Ich würde eine private Variable definieren, die z.B. standardmäßig auf True steht. Dann würde ich in meinem Hauptform eine Procedure

markieren

Delphi-Quellcode:

procedure TMeinForm.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  MeineVariable := False;
  Msg.Result := integer(true);
end;

definieren, in der die Variable auf False gesetzt wird. Im Closequery wurde ich die Messagebox nur anzeigen, wenn meine private Variable auf True steht.
Damit sollte Dein Problem gegessen sein.

Danke für die schnelle Reaktionen!

Zitat von HeikoAdams:

Damit sollte Dein Problem gegessen sein.

Leider nicht. Ich habe in der Deklaration der Form im Abschnitt private eine Variable erstellt, die dann in OnCreate auf true gesetzt wird. Dann überpüfe ich diese Variable in OnClose. Trotzdem erscheint die Meldung, wenn ich Windows beenden möchte.

Mache ich etwas falsch?

Reagierst Du denn auch auf WM_QUERYENDSESSION?

Zitat von DeddyH:

Reagierst Du denn auch auf WM_QUERYENDSESSION?

Eigentlich nicht.
Wie mache ich das?

Im private-Abschnitt Deines Forms trägst Du das hier ein:

markieren

Delphi-Quellcode:

procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
  message WM_QUERYENDSESSION;

Im implementation-Teil dann das, was weiter oben bereits gepostet wurde.

Wenn du das das Programm über das Trayicon anzeigst brauchst du ja nichtmal auf diese Message reagieren. Dann wäre es doch das einfachste im OnCloseQuery nur nachzufragen wenn das Programm auch sichtbar ist.
Denn nur wenn es sichtbar ist kann es durch den Nutzer per Maus bzw. Alt+F4 beendet werden. In allen anderen Fällen wird es also nicht direkt durch den Benutzer beendet.

Danke Euch allen! Es klappt!