Einzelnen Beitrag anzeigen

Benutzerbild von fs999
fs999

Registriert seit: 4. Dez 2006
Ort: Luxembourg
46 Beiträge
 
Delphi 10.3 Rio
 
#1

Wm_powerbroadcast

  Alt 28. Jul 2014, 16:15
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
  Mit Zitat antworten Zitat