Узнать, поддерживает ли компьютер состояния ожидания и снаDelphi , ОС и Железо , КомпьютерУзнать, поддерживает ли компьютер состояния ожидания и сна
Оформил: DeeCo //********************************************************************** // 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. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |