A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-28 #1 谁有这方面的例程？可以设定到达某一天的某一具体时间自动关机？
C chatop Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #2 用一个timer进行实实对比呀… 比如说，在你要关机的时间写在变量a里 例如是12:20:30 那么在timer上写，if 现在的时间=a then 关机 否则 结束！
M mei_mei Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #4 用一个timer时钟控制。定义一个变量time procedure TForm1.Timer1Timer(Sender: TObject); begin if time=你设定的时间 then exitwindowsex(EWX_FORCE,0); end;
用一个timer时钟控制。定义一个变量time procedure TForm1.Timer1Timer(Sender: TObject); begin if time=你设定的时间 then exitwindowsex(EWX_FORCE,0); end;
D digitalife Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #5 楼上的方法可行，我以前也写过。但有一个问题，如果是Win2000/NT/XP用户锁定了系统，必须要获得管理员或当前用户的帐号和密码才能关机，好象在应用层根本不可能。具体你可看看Poweroff这个软件，功能很完备，但也是在锁定的情况下关不了机。
楼上的方法可行，我以前也写过。但有一个问题，如果是Win2000/NT/XP用户锁定了系统，必须要获得管理员或当前用户的帐号和密码才能关机，好象在应用层根本不可能。具体你可看看Poweroff这个软件，功能很完备，但也是在锁定的情况下关不了机。
穿 穿越沦陷的爱 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #6 用Timer 即可，不过各个系统的关机API不同，楼上的 NT下能用吗？
幸 幸福鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #7 当然一个关机任务用TIMER足已，如果多个任务我觉得应该用线程，而且是动态创建！
A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #8 最重要的部分倒不是实现关机什么的，^_^ 无论执行何种动作都可以，我需要的是具体的代码，可以设定精确到月、日、小时、分钟，具体的代码，哪位高手可以弄出来？谢谢了
穿 穿越沦陷的爱 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #9 ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',Now)) ; 用 FormatDateTime 可以得到具体的时间值(String)
A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #10 天，，，，还是没有弄明白我的意思，我的意思是说，基本实现像某些软件可以定时播放音乐等等来提醒，或者完成定时关机之类的动作。 这样吧，谁把能定时播放wav文件的源码弄上来我就给分了，另外给200分！当然，时间要可以设定，单位：月-日－小时－分钟 就是分别可以设定月，日，小时，分钟，到达设定时间后就自动播放wav文件！谢谢了！
天，，，，还是没有弄明白我的意思，我的意思是说，基本实现像某些软件可以定时播放音乐等等来提醒，或者完成定时关机之类的动作。 这样吧，谁把能定时播放wav文件的源码弄上来我就给分了，另外给200分！当然，时间要可以设定，单位：月-日－小时－分钟 就是分别可以设定月，日，小时，分钟，到达设定时间后就自动播放wav文件！谢谢了！
穿 穿越沦陷的爱 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #11 在 Timer中得到你需要的细化的时间，到了时间，启动程序/Do Other Thing
A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #12 顺便，^_^，刚刚学delphi，什么都不会，，，，所以，，，不好意思啦，希望大虾能给出详细一点(但实现简单一点)的代码。
穿 穿越沦陷的爱 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #13 procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('ss', now) = '46' then ShowMessage('46'); end; 每到 46 秒，弹出 46
procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('ss', now) = '46' then ShowMessage('46'); end; 每到 46 秒，弹出 46
