Hochfahren nach Ruhezustand erkennen

[Gydan]

Delphi-Quellcode:

procedure TForm1.WMPowerBroadcast(var Msg: TWMPower);
begin
  showmessage('1. Msg.PowerEvt: '+ inttostr( Msg.PowerEvt )+chr(13)+'Msg.Msg= '+inttostr(msg.msg) +chr(13)+'Msg.Unused: '+inttostr(msg.unused));
  if Msg.PowerEvt=PWR_SUSPENDRESUME then
  showmessage('Fortgesetzt');
end;

Das ist mein Versuch bis jetzt. PWR_SUSPENDRESUME hat den Wert 2, aber ich bekomme für Msg.PowerEvt nur die Werte 0 und 4 beim Ruhezustand einschalten und die Werte 18 und 7 beim Hochfahren aus dem Ruhezustand. Die Werte sind beim Suspend die gleichen. Die Prozedur wird also vor und nach dem Ruhezustand/Suspend aufgerufen, aber das mit dem Werten klappt nicht. Dabei wird die Prozedur wohl zwei mal aufgerufen, da ich zweimal Meldungen mit Werten erhalte. Kann mir da jemand helfen? Ich hatte gehofft, es wäre einfacher.

Kannst du mir das mit den Jedis erklären? Ich hab davon leider keine Ahnung.