delphi實現關閉Windows

控制WINDOWS的開關：如關閉WINDOWS，重新啟動WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是實現這一功能的API函數

首先定義常數

const

EWX_FORCE=4; //關閉所有程式並以其他使用者身份登入

EWX_LOGOFF=0; //重新啟動電腦並切換到MS-DOS方式

EWX_REBOOT=2; //重新啟動電腦

EWX_SHUTDOWN=1;//關閉電腦

運行時給How賦值，讓他等於EWX_SHUTDOWN或其他，調用以下語句

ExitWindowsEx(How,0);