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);