Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Узнать, поддерживает ли компьютер состояния ожидания и сна

Delphi , ОС и Железо , Компьютер

Узнать, поддерживает ли компьютер состояния ожидания и сна

Оформил: 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 и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Компьютер ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 04:04:15/0.032631874084473/0