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