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