Переход в ждущий режим

Code:

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

>> Переход в ждущий режим под WinNT

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

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

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

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;