Apagar PC en XP

[tiel]

Investigando ya sé cómo hacer que funcione la función API ExitWindowsEx en Windows XP, tienen que tener privilegios para eso, y se obtiene con la API también:

var

  hToken: THandle;           
  tkp: TTokenPrivileges;
  tkp2: PTokenPrivileges;
  r: Dword;                      //Esta variable sobra, pero se tiene que usar para pasársela a la función AdjustToken....

implementation

   if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then

   if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
      begin

         tkp.PrivilegeCount := 1;
         tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

         if AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, r) then
            ExitWindowsEx( .. , 0 );
      end;