开机没办法
关机倒还可以
ExitWindowsEx(EWX_REBOOT,0)重新启动计算机
ExitWindowsEx(EWX_SHUTDOWN)关闭计算机

解决方案 »

  1.   

    加入 shellapi单元
    用ExitWindowsEx(EWX_REBOOT,0),ExitWindowsEx(EWX_SHUTDOWN)两个api
    具体用法可以看一下win32help
      

  2.   

    关闭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);
    不過只有WIN9X下有效,NT和WIN2000不行。
    系統時間用Now()