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