Auf abmelden/runterfahren reagieren?

[NikoMitDaMacht]

mein prog soll beim abmelden oder beim runterfahren eine procedure ausführen.
Wie kann ich also auf abmelden oder runterfahren reagieren?

[Sprint]

Ich bin mir jetzt nicht ganz sicher, aber ich glaube Windows sendet Nachrichten in Form von WM_ENDSESSION und WM_QUERYENDSESSION. Musst mal hier im Forum nach suchen.

[goodvirus]

Also zum runtefahren benutze ich das hier

Delphi-Quellcode:

private
   procedure WMQueryEndSession (var M: TWMQueryEndSession); message 
    WM_QUERYENDSESSION;

Delphi-Quellcode:

procedure TForm1.WMQueryEndSession (var M: TWMQueryEndSession);
begin
  inherited; //Wichtig
  //Hier kommt dann der Quellcode rein z.B.
  ShowMessage('Das Programm wird jetzt gleich durch Windows beendet');
end;

Zum abmelden musst halt nur ne andere Message nehmen

[Luckie]

Ich wurde aber noch das Message-Result setzen, sonst bricht Windows nämlich das Runterfahren ganz ab.

[Vjay]

Zitat von Luckie:

Ich wurde aber noch das Message-Result setzen, sonst bricht Windows nämlich das Runterfahren ganz ab.

Macht das nicht inherited schon?

[goodvirus]

eigentlich schon außerdem funzt das mir supi und mein pc fährt auch runter...

[arbu man]

Schreibe einfach ein Programm das bei CloseQuery deine Procedure
ausführt.
Wenn Windows beendet wird werden alle Programme durch CloseQuery ge-
schlossen.

[alcaeus]

Hi arbu man,

Zitat von arbu man:

Wenn Windows beendet wird werden alle Programme durch CloseQuery ge-
schlossen.

das stimmt zwar, aber OnCloseQuery wird ausgelöst, wenn das Form unmittelbar vor der "Schließung" steht. Also würdest du abfragen, ob das Form grade geschlossen wird, und nicht ob Windows heruntergefahren wird.

Greetz
alcaeus