Переход в ждущий режим под WinNTDelphi , ОС и Железо , КомпьютерПереход в ждущий режим под WinNT
Автор: DeMoN-777 { **** UBPFD *********** by delphibase.endimus.com **** >> Переход в ждущий режим под WinNT Зависимости: Windows Автор: DeMoN-777, DeMoN-777@yandex.ru, Санкт-Петербург Copyright: @ Дата: 21 июня 2002 г. ***************************************************** } procedure NTWait; var hToken: THandle; tkp: TTokenPrivileges; ReturnLength: Cardinal; begin if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); tkp.PrivilegeCount := 1; tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then SetSystemPowerState(true, true); end; end; Статья Переход в ждущий режим под WinNT раздела ОС и Железо Компьютер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |