Vista Ruhezustand abfangen?

[SiD]

Hallo Leute,
ich stehe wieder vor einem Problem. Ich möchte ein Ereignis starten wenn Vista
- in den Ruhezustand geht
- aus dem Ruhezustand wieder aktiviert wird
- bei norm. Herunterfahren

habe es so versucht den Ruhezustand abzufangen:

Delphi-Quellcode:

private
  procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
end;

Implementation

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  if MessageDlg('Close Windows now/ Windows beenden?',
                            mtConfirmation,
                            [mbYes,mbNo], 0) = mrNo then
      Msg.Result := 0
   else
      Msg.Result := 1;
end;

es geht aber nicht...hat vielleicht einer von Euch ne Idee?

Grüße aus Berlin
Sid