请教！关闭win2000和xp系统的api函数

Question

我用：
 ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF ,1);
只能对win98好使，2k和xp都不可以， 请问大家关闭win2000和xp系统的api函数应该怎样写？或是用其它方法也可以，
 谢谢！

Answer 1

ExitWindowsEx(EWX_SHUTDOWN,0); //关机
ExitWindowsEx(EWX_FORCE,0);   //关闭所有程序重新登录
ExitWindowsEx(EWX_REBOOT,0);   //重新启动计算机

Answer 2

ExitWindowsEx(EWX_SHUTDOWN,0); //关机一样的，这个函数只能用在98里，我想问2k和xp的怎么写

Answer 3

api函数！！但是如果在2000下运行需要权限！查一下以前的贴子吧：）

Answer 4

function GetWindowsVersion : string;
var
   WindowsInfo : TOSVersionInfo;
begin 
    WindowsInfo.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
    GetVersionEx(WindowsInfo);    case WindowsInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT:
         begin
            if ( WindowsInfo.dwMajorVersion <= 4 ) then
               result :=  'Microsoft Windows NT';            if (( WindowsInfo.dwMajorVersion = 5 ) and (WindowsInfo.dwMinorVersion = 0)) then
               result :=  'Microsoft Windows 2000'
            else if (( WindowsInfo.dwMajorVersion = 5 ) and (WindowsInfo.dwMinorVersion > 1)) then
               result :=  'Microsoft Windows XP';
         end;
      VER_PLATFORM_WIN32_WINDOWS:
         begin
            if ((WindowsInfo.dwMajorVersion > 4) or ((WindowsInfo.dwMajorVersion = 4) and (WindowsInfo.dwMinorVersion = 0))) then
               result := 'Microsoft Windows 98'
            else if ((WindowsInfo.dwMajorVersion > 4) or ((WindowsInfo.dwMajorVersion = 4) and (WindowsInfo.dwMinorVersion = 90))) then
               result := 'Microsoft Windows ME'
           else
               result := 'Microsoft Windows 95';
         end;
    else 
       result := 'Win32s'; 
    end;
end;procedure ShutDownWindowsNT;
var
  hToken:THandle;
  tkp : TOKEN_PRIVILEGES;
  ReturnLength : DWord;
begin
  if (not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken))then
  begin
    application.Terminate;
  end;
  LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
  tkp.PrivilegeCount := 1;
  tkp.Privileges[0].Attributes :=SE_PRIVILEGE_ENABLED;
  ReturnLength :=0;
  AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,ReturnLength);
  if (GetLastError() <> ERROR_SUCCESS) then
  begin
    application.Terminate;
  end;
  if (not ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0)) then
  begin
    application.Terminate;
  end;
end;procedure ShutDownWindows;
var
  Str:string;
begin
  Str:=GetWindowsVersion;
  if (Str='Microsoft Windows 2000')or(Str='Microsoft Windows XP') then
    ShutDownWindowsNT
  else
    exitwindowsex(EWX_FORCE or EWX_POWEROFF,0);
end;

Answer 5

看MSDN里面看ExitWindowsEx函数，有C的例子，，