Hochfahren nach Ruhezustand erkennen

[masterchris_99]

Hat jetzt schon jmd etwas?
Ich kenne mich leider keinbisschen mit Message Handles und so aus bräuchte jedoch sehr dringend eine Benachrichtigung nach dem Hochfahren aus dem Ruhezustand. Habe schon eine Version mit der ich die Zeit messe und wenn die einmal abweicht dann bekomm ich meldung jedoch ist diese Variante ziehmlich Hardwarelastig.

[masterchris_99]

möööööp bräuchte das immernoch

[masterchris_99]

so mal wieder nach oben schieben

[omata]

Versuch es doch mal so...

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure WMPowerBroadcast(var Msg: TMessage); message WM_POWERBROADCAST;

Delphi-Quellcode:

procedure TForm.WMPowerBroadcast(var Msg: TMessage);
const
  PBT_APMQUERYSUSPEND = $0000;
  PBT_APMBATTERYLOW = $0009;
  PBT_APMQUERYSTANDBY = $0001;
  PBT_APMQUERYSUSPENDFAILED = $0002;
  PBT_APMQUERYSTANDBYFAILED = $0003;
  PBT_APMSUSPEND = $0004;
  PBT_APMSTANDBY = $0005;
  PBT_APMRESUMECRITICAL = $0006;
  PBT_APMRESUMESUSPEND = $0007;
  PBT_APMRESUMESTANDBY = $0008;
  PBTF_APMRESUMEFROMFAILURE = $00000001;
  PBT_APMPOWERSTATUSCHANGE = $000A;
  PBT_APMOEMEVENT = $000B;
begin
  case Msg.wParam of
    PBT_APMSUSPEND: begin
      // System geht in Standby
    end;
    PBT_APMRESUMESUSPEND: begin
      // System kommt aus dem Standby
    end;
  end;
end;

MfG
Thorsten

[masterchris_99]

Danke Danke Danke Danke
Vielen herzlichen Dank
Ich hab zu danken...

Dachte echt net das es so einfach ist naja wieder was dazu gelernt.