Auf "Aufwecken aus dem Ernergiesparmodus" reagieren?

[DieDolly]

Gibt es ein Event oder eine Funktion die gefeuert wird, wenn Windows aus dem Energiesparmodus aufgeweckt wird?
Ich möchte Code gerne etwas verspätet nach dem Aufwecken erst ausführen lassen.

[Gausi]

Da sollte die Message WM_POWERBROADCAST ankommen

[DieDolly]

In meinem ApplicationEvents1Message (msg.message) ist da nichts davon angekommen.

Hiermit bekomme ich was angezeigt. Aber ich weiß nicht, ob das das richtige Event ist

Delphi-Quellcode:

 case Msg.WParam of
  PBT_APMPOWERSTATUSCHANGE:
   begin
    showmessage('ich bin aus dem energiesparmodus zurück!');
   end;

[Gausi]

Hm, da hat sich wohl bei Windows was verändert, seit ich das mal in meinem Player implementiert habe. Hilft der Thread weiter?

[DieDolly]

Habe es gerade noch einmal getestet. Resume-Suspend wird ins Memo geschrieben aber nicht Suspend. Resume wird aber auch geschrieben, wenn man gerade in den Energiesparmodus geht.

Delphi-Quellcode:

 case Msg.WParam of
  PBT_APMSUSPEND:
   Memo1.Lines.Add('PBT_APMSUSPEND');
  PBT_APMRESUMESUSPEND:
   Memo1.Lines.Add('PBT_APMRESUMESUSPEND');
 end;