[AND_REY]

Работает под ХР на других не проверял.

Код:

procedure TForm1.Button1Click(Sender: TObject);
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
    ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0);
 end;
end;