ExitWindowsEx(EWX_SHUTDOWN, EWX_FORCE);

  function ChangeNTSecurityForShutdown: Boolean;
  { This func changes security rights on a WinNT 4.0 machine  }
  { to give app shutdown privileges.                          }
  var
    hToken : THandle;
    tkp,
    Newt   : TTokenPrivileges;
    retlength : DWORD;
  begin
      Result := False;
      if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES +
                          TOKEN_QUERY, hToken) <> False then
        begin
           { Get the LUID for shutdown privilege }
           if LookupPrivilegeValue( nil, 'SeShutdownPrivilege',
                                    tkp.Privileges[0].Luid) = True then
             begin
               tkp.PrivilegeCount := 1;  // One to set
               tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
               { Get shutdown privilege for this process }
               Result := AdjustTokenPrivileges(hToken, False, tkp,
                                               SizeOf(TTokenPrivileges), Newt,
                                               retlength);
             end;
        end;
  end;

procedure ExitWindows32(ShutDownFlag: Word);
{ proc to Exit 32-bit Windows.  ShutDownFlag is either EWX_REBOOT, EWX_SHUTDOWN, or EWX_LOGOFF. }

  function ChangeNTSecurityForShutdown: Boolean;
  { This func changes security rights on a WinNT 4.0 machine  }
  { to give app shutdown privileges.                          }
  { Use proc ExitWindows32 to reboot or shutdown the machine. }
  var
    hToken : THandle;
    tkp,
    Newt   : TTokenPrivileges;
    retlength : DWORD;
  begin
      Result := False;
      if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES +
                          TOKEN_QUERY, hToken) <> False then
        begin
           { Get the LUID for shutdown privilege }
           if LookupPrivilegeValue( nil, 'SeShutdownPrivilege',
                                    tkp.Privileges[0].Luid) = True then
             begin
               tkp.PrivilegeCount := 1;  // One to set
               tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
               { Get shutdown privilege for this process }
               Result := AdjustTokenPrivileges(hToken, False, tkp,
                                               SizeOf(TTokenPrivileges), Newt,
                                               retlength);
             end;
        end;
  end;

begin
  if GetWindowsVersion = VER_PLATFORM_WIN32_NT then
    begin
      if ChangeNTSecurityForShutdown then
        ExitWindowsEx(ShutDownFlag, 0)
      else
        { Failed to change security rights to give us shutdown privilege. }
        MessageDlg('Unable to modify security rights for shutdown privileges.', mtError, [mbOK], 0);
    end
  else
    if GetWindowsVersion = VER_PLATFORM_WIN32_WINDOWS then
      ExitWindowsEx(ShutDownFlag, 0);
end;