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.