Möglichkeit einleiten des Ruhezustandes abzufangen

[Union]

Delphi-Quellcode:

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