Hochfahren nach Ruhezustand erkennen

[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