Auf Herrunterfahren reagieren

[phreax]

hmm.. tja Delphi hat die Parameter nicht wie im Link übersetzt, also weiss ich nicht welcher Parameter welcher ist, und ich habe keien Lust meinen PC jetzt neuzustarten

versuche mal folgendes:

Delphi-Quellcode:

private //von der Form
  procedure WMQueryEndSession(var Msg:TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TForm.WMQueryEndSession(var Msg:TWMQueryEndSession);
begin
showmessage('2');
if msg.Unused = 0 then ShowMessage('Herunterfahrn/reboot'); //vllt. mal etwas mit den paramtern rumspielen...
end;

mfg phreax

ROTER KASTEN:
Ich hab mal versucht den msdn Beitrag anzuwenden