Standby unterdrücken

[Vjay]

Delphi-Quellcode:

const
  PBT_APMQUERYSUSPEND       = 0; {Request for permission to suspend.}
  
ins mainform private: procedure WMPOWERBROADCAST (var Message: TMessage); message WM_POWERBROADCAST;


procedure TMainForm.WMPOWERBROADCAST(var Message: TMessage);
begin
 case Message.WParam of
  PBT_APMQUERYSUSPEND:
  begin
   if canSuspend then Message.Result := 1
   else Message.Result := BROADCAST_QUERY_DENY;
  end;
 else defaultHandler( Message);
 end;
end;