[Decoding]

Сообщение от Kaka

Как программно вырубить комп(Тока штоб он потом смог включиться) )?
кстати в Windows XP!!!
и кстати чтоб работал код надо, а не так .. формаальноо.
Кто знает - СВИСТИТЕ Сюды или Hungry@front.ru!

Код:

procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
   OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph );
   LookupPrivilegeValue( nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid );
   tp.PrivilegeCount := 1;
   tp.Privileges[0].Attributes := 2;
   AdjustTokenPrivileges( ph, FALSE, tp, SizeOf( prevst ), prevst, rl );
   ExitWindowsEx( EWX_SHUTDOWN or EWX_POWEROFF, 0 );
end;