Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Поддерживает ли система suspend?

01.01.2007
function SuspendAllowed: Boolean;
type
 
TIsPwrSuspendAllowed = function: Boolean;
  stdcall
;
var
  hPowrprof
: HMODULE;
 
IsPwrSuspendAllowed: TIsPwrSuspendAllowed;
begin
 
Result := False;
  hPowrprof
:= LoadLibrary('powrprof.dll');
 
if hPowrprof <> 0 then
 
begin
   
try
     
@IsPwrSuspendAllowed := GetProcAddress(hPowrprof, 'IsPwrSuspendAllowed');
     
if @IsPwrSuspendAllowed <> nil then
     
begin
       
Result := IsPwrSuspendAllowed;
     
end;
   
finally
     
FreeLibrary(hPowrprof);
   
end;
 
end;
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php