Hallo,
jetzt habe ich auch das Problem, dass ich Energiesparmodus und Ruhezustand verhindern muss. So funktioniert das leider nicht:
Delphi-Quellcode:
procedure TForm1.WMPowerBroadcast(var Msg: TMessage);
var
t: TextFile;
begin
case Msg.wParam of
PBT_APMSUSPEND:
begin // System wird in einen Energiesparmodus versetzt
Msg.Result := BROADCAST_QUERY_DENY;
AssignFile(t,'D:\BROADCAST_QUERY_DENY.TXT');
Rewrite(t);
WriteLn(t,TimeToStr(Now)+' ==> Msg.wParam.BROADCAST_QUERY_DENY');
CloseFile(t);
end;
PBT_APMRESUMESUSPEND:
begin //System ist wieder aufgewacht
ShowMessage('Energiesparmodus: Hurrraaa wir leben wieder');
end;
PBT_APMRESUMEAUTOMATIC:
begin //Nach dem Aufwachen wurde eine Benutzeraktivität festgestellt
ShowMessage('Energiesparmodus: ...und aktiv sind wir auch schon wieder ;-)');
end;
end;
end;
ALle 3 Messages werden gefeuert, aber Msg.Result := BROADCAST_QUERY_DENY bewirkt nichts. Wo ist da der Haken?