Приостановить компьютер (sleep)

У компьютеров ATX есть функция Sleep. Эта программа заставляет компьютер "заснуть".

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

SetSystemPowerState(true, true);

end;

Автор советов: Даниил Карапетян

Автор справки: Алексей Денисов

Code:

{ **** UBPFD *********** by ****

>> Переход в Спящий режим (WinNT)

Зависимости: Windows, system

Автор: DeMoN-777, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.

***************************************************** }

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;

Новые статьи