Ruhezustand blockieren-> Versuch erkennen -> selbst auslösen

[Union]

Hi ichbins,

im Interface:
procedure WMPowerBroadcast(var Msg : TWMPower) ; message WM_POWERBROADCAST; In der Implementation:

Delphi-Quellcode:

//------------------------------------------------------------------------
procedure TfrmMain.WMPowerBroadcast(var Msg: TWMPower);
//------------------------------------------------------------------------
// Suspend ablehnen
//------------------------------------------------------------------------
begin
   Msg.Result :=  BROADCAST_QUERY_DENY;
end;