是否有哪個函數可以關閉電腦的.....也就是像在安裝某些硬體驅動程式時他會要求重新開機一樣,請各位先知不吝指教

參考這篇: 在所有版本windows中關閉計算機，甚至在Windows不想退出 或 NT 告訴你沒有特權關機時。 function GetWinVersion: String; var VersionInfo: TOSVersionInfo; OSName: String; begin // 設定記錄大小 VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo ); if Windows.GetVersionEx( VersionInfo ) then begin with VersionInfo do begin case dwPlatformId of VER_PLATFORM_WIN32s : OSName := 'Win32s'; VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95'; VER_PLATFORM_WIN32_NT : OSName := 'Windows NT'; end; Result := OSName ' Version ' IntToStr( dwMajorVersion ) '.' IntToStr( dwMinorVersion ) #13#10' (Build ' IntToStr( dwBuildNumber ) ': ' szCSDVersion ')'; end; end else Result := ''; end; procedure ShutDown; const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland忘記了這個聲明 var hToken: THandle; tkp: TTokenPrivileges; tkpo: TTokenPrivileges; zero: DWORD; begin if Pos( 'Windows NT', GetWinVersion) = 1 then //我們不得不做大量的事 begin zero := 0; if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin MessageBox( 0, '錯誤退出', 'OpenProcessToken()失敗', MB_OK ); Exit; end; if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin MessageBox( 0, '錯誤退出', 'OpenProcessToken()失敗', MB_OK ); Exit; end; if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then begin MessageBox( 0, '錯誤退出', 'LookupPrivilegeValue()失敗', MB_OK ); Exit; end; tkp.PrivilegeCount := 1; tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero ); if Boolean( GetLastError() ) then begin MessageBox( 0, '錯誤退出', 'AdjustTokenPrivileges()失敗', MB_OK ); Exit; end else ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); end else begin ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); end; end;