Delphi World - Узнать, поддерживает ли компьютер состояния ожидания и сна
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Узнать, поддерживает ли компьютер состояния ожидания и сна

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

//********************************************************************** 
// Check if hibernation is allowed 
//********************************************************************* 

function HibernateAllowed: Boolean;
 type
   TIsPwrHibernateAllowed = function: Boolean;
   stdcall;
 var
   hPowrprof: HMODULE;
   IsPwrHibernateAllowed: TIsPwrHibernateAllowed;
 begin
   Result := False;
   if IsNT4Or95 then Exit;
   hPowrprof := LoadLibrary('powrprof.dll');
   if hPowrprof <> 0 then
   begin
     try
       @IsPwrHibernateAllowed := GetProcAddress(hPowrprof, 'IsPwrHibernateAllowed');
       if @IsPwrHibernateAllowed <> nil then
       begin
         Result := IsPwrHibernateAllowed;
       end;
     finally
       FreeLibrary(hPowrprof);
     end;
   end;
 end;


 //********************************************************************** 
// Check if suspend is allowed 
//********************************************************************** 

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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования