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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!