procedure Restart;

var

  TokenHandle: THandle;

  TokenPrivileges: TTokenPrivileges;

begin

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

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

    begin

      TokenPrivileges.PrivilegeCount := 1;

      TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

      AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, SizeOf(TokenPrivileges), TTokenPrivileges(nil^), DWORD(nil^));

    end;

  ExitWindowsEx(EWX_REBOOT, 0);

end;