查看完整版本: delphi编写定时关机小软件

delphi编写定时关机小软件

定时关机的方法有很多   系统的at加shutdown命令就可以实现
这里说的是用delphi制作定时关机的小软件
  
  用到了GroupBox   label   edit  button  timer 就这么多~`
我先制作窗体
现在来看看  怎么写代码~
需要用一个timer控件 来获取当前的时间  在label里显示
'现在是: '+formatdatetime('yy/mm/dd',now)+'  ';
timer控件是不可见控件  就是程序运行后 它不会显示的  所以随便放哪儿都可以的
用到 Timer事件
那怎么定时来关机呢~`
关机需要向windows发送关机消息的    在delphi里的消息为
关机：ExitwindowsEX(EWX_SHUTDOWN,0);  这句话就可以。但我在2003系统上没测试成功,不知道是我系统的权限设置问题怎么了
重启：ExitwindowsEX(EWX_REBOOT,0);
注销：ExitwindowsEX(EWX_LOGOFF,0);
教程下载地址：[url=http://www.xuedelphi.cn/xiazai/bcsz/2007111714555786.htm]http://www.xuedelphi.cn/xiazai/bcsz/2007111714555786.htm[/url]