DELPHI實作關機，相容全部WINDOWS系統

關閉Windows函數ExitWindowsEx(UINT uFlag,DWORD:dwReserved)說明：

控制WINDOWS的開關：如關閉WINDOWS，重新啟動WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是實作這一功能的API函數。如果Complile時提示EWX_XXXX未定義，那麼請手動定義這幾個常數，預設情況下是無需我們手動定義的。

const

 EWX_FORCE=4; //關閉所有程式并以其他使用者身份登入？（！！應為“強制執行否”吧！！）

 EWX_LOGOFF=0; //重新啟動計算機并切換到MS-DOS方式

 EWX_REBOOT=2; //重新啟動計算機

 EWX_SHUTDOWN=1;//關閉計算機

 EWX_POWEROFF=8;//切斷電源

 EWX_FORCEIFHUNG=$10;//不記得了，有誰好心查下MSDN

調用方法：

 ExitWindowsEx(EWX_REBOOT,0); //重新開機計算機

 ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0); //強行關機

 不過部落客經常聽到有人說這一API隻在Windows 95/98/98SE/Me下有效，而在Windows NT/2000/XP下無效。

 其實這是不正确的，這一API在上述平台下均是有效的，隻是我們在Windows NT/2000/XP平台下執行此函數之前，必須要擷取得關機特權罷了，其實就算是Windows NT/2000/XP系統自身關機也必須要走這一流程的。

view plain print ?

1. 擷取關機特權函數如下：  
2. procedure Get_Shutdown_Privilege; //獲得使用者關機特權，僅對Windows NT/2000/XP  
3. var   
4.   rl: Cardinal;  
5.   hToken: Cardinal;  
6.   tkp: TOKEN_PRIVILEGES;   
7. begin   
8.   OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);  
9.   if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then  
10.   begin  
11.     tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
12.     tkp.PrivilegeCount := 1;  
13.     AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);  
14.   end;  
15. end;  

擷取關機特權函數如下： 

procedure Get_Shutdown_Privilege; //獲得使用者關機特權，僅對Windows NT/2000/XP 

var 

rl: Cardinal; 

hToken: Cardinal;

tkp: TOKEN_PRIVILEGES; 

begin 

OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);  

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

begin

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

 tkp.PrivilegeCount := 1; 

 AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);  

end;  

end; 

 另一個關機API，InitiateSystemShutdown(PChar(Computer_Name),PChar(Hint_Msg),Time,Force,Reboot);在Windows NT/2000/XP平台下還會自動調用系統本身的關機提示視窗。

 InitiateSystemShutdown(PChar(Computer_Name), PChar(Hint_Msg),Time,Force,Reboot);

                      //關機計算機名,關機提示資訊,停留時長,是否強行關機,是否要重新開機

 當我們把Computer_Name設為nil時，預設為本機，如 InitiateSystemshutdown(nil,nil,0,True,False);//強行關機

 由于我們需要制作一個通用的關機程式，故要對目前的作業系統進行判斷，這個比較簡單，函數如下：

1.   function GetOperatingSystem: string;//擷取作業系統資訊  
2.   var  osVerInfo: TOSVersionInfo;  
3.   begin  
4.     Result :='';  
5.     osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
6.     if GetVersionEx(osVerInfo) then  
7.       case osVerInfo.dwPlatformId of  
8.       VER_PLATFORM_WIN32_NT:  
9.       begin  
10.         Result := 'Windows NT/2000/XP'  
11.       end;  
12.       VER_PLATFORM_WIN32_WINDOWS:  
13.       begin  
14.         Result := 'Windows 95/98/98SE/Me';  
15.       end;  
16.     end;  
17.   end;  
18.   執行關機的主函數：  
19.   procedure ShutDownComputer;  
20.   begin  
21.     if GetOperatingSystem='Windows NT/2000/XP' then   
22.     begin   
23.       Get_Shutdown_Privilege;  
24.       //調用此函數會出現系統關機提示視窗，并允許使用者取消關機動作  
25.       //InitiateSystemShutDown(nil,'關機提示：讨厭你是以關了你！',0,True,False);  
26.       ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);  
27.     end else  
28.     begin  
29.       ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);  
30.     end;  
31.   end;   
32. =========================================================================================================================}  
33. 使用：  
34. procedure TShutDownForm.btn_PowerOffClick(Sender:Object);  
35. begin  
36.   ShutDownComputer;  
37. end;