[Delphi] Windows-Message: Aus dem Ruhezustand "aufwachen"

Original von omata (Delphi-PRAXiS)

Code:

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;

Zum Vergrößern anklicken....