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

Code:

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;