delphi实现关闭Windows

delphi实现关闭Windows2008-04-20控制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）;