Приостановить компьютер (sleep) |
Previous Top Next |
У компьютеров ATX есть функция Sleep. Эта программа заставляет компьютер "заснуть".
Code: |
procedure TForm1.Button1Click(Sender: TObject); begin SetSystemPowerState(true, true); end; |
©Drkb::01703
Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru
Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su
Code: |
{ **** UBPFD *********** by delphibase.endimus.com **** >> Переход в Спящий режим (WinNT)
Зависимости: Windows, system Автор: DeMoN-777, DeMoN-777@yandex.ru, ICQ:169281983, Санкт-Петербург Copyright: @ Дата: 21 сентября 2002 г. ***************************************************** }
procedure NTSleep; 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; // one privelege to set tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then SetSystemPowerState(true, true); end; end; |
©Drkb::01704