Wm_powerbroadcast

[fs999]

Hallo,

Ich versuche den Standby und Suspend modus von Windows 7 (x64 Pro) zu verhindern, das scheint aber nicht zu funktionnieren.

Code:

...

TMainForm = class(TForm)
Private
    procedure WMPowerBroadcast(var Message: TMessage); message WM_POWERBROADCAST;
end;

...

implementation

...

procedure TMainForm.WMPowerBroadcast(var Message: TMessage);
begin
  case Message.WParam of
    PBT_APMQUERYSUSPEND, PBT_APMQUERYSTANDBY,
    PBT_APMSUSPEND, PBT_APMSTANDBY:
    begin
      Message.Result := BROADCAST_QUERY_DENY;
    end;
  end;
end;

Wenn ich ein ShowMessage nach dem Message.Result mache, dann sehe ich die Meldung nach dem aufwecken...

Grüsse,
Frederic