Auf PC herunterfahren reagieren

[Solino]

Hallo,

würde in einem Programm gerne auf das Ereignis "PC wird heruntergefahren" reagieren.

Hat jemand eine Idee wie das gehen könnte?

[Scotty]

Probier mal Application.OnEndSession - kann sein, dass das nicht auf allen Plattformen funktioniert.
http://lazarus-ccr.sourceforge.net/docs ... ssion.html

[Christian]

Das reagiert aber auf beenden des Programmes nicht des PCś.

Das herunterfahren des PCś kannst nur mitbekommen wenn dein Programm beim start des rechners gestartet wird und bis zum runterfahren aktiv bleibt. Das machen Services.

[Michl]

Unter Win7 funktioniert bei mir folgendes Vorgehen:

- ein TApplicationProperties (Komponentenpalette Additional) auf das Formular platzieren
- Ereignis OnQueryEndSession auswerten z.B.:

Code: Alles auswählen

procedure TForm1.ApplicationProperties1QueryEndSession(
  var Cancel: Boolean);
begin
  if Application.MessageBox(
      PChar('Windows wird runtergefahren. Wollen Sie das zulassen?!'),
      'Zulassen(J/N)', MB_ICONQUESTION + MB_YESNO) = IDNO then
    Cancel:=True
  else
    Cancel:=False;
end;