定时运行这个问题其实老早就接触到了,不过在上次的程序中似乎没有很好的解决这个问题,并且没有深入下去.这次再次碰到同样的问题,在查找了网上的资料以后,对这一问题有了比较深的理解.在程序中实现定时运行的思路:
由timer控件实现 【程序编程相关:偶的第二个Delphi程序】 【推荐阅读:Delphi中用ICMP探测远程主机状态】两个timer控件,其中timer1负责每一分钟检查一次系统时间与设定时间的差值,如果两者相差5分钟,则继续检查,直到当相差时间小于5分钟,触发timer2,timer2的定时器时间就是这个时间间隔.当timer2到时以后,就触发主程序.具体代码 【扩展信息:第一次接触Delphi】procedure tform1.button1click(sender: tobject);
begin timer1.interval:=60*1000; //启动监控,每1分钟检查一次设定时间与当前时间 timer1.enabled:=true; end;procedure tform1.timer1timer(sender: tobject);
var l_time: tdatetime; h_time: tdatetime; ss:int64; begin timer1.enabled:=false; h_time:= strtotime(10:30:00); l_time := time; //now是取当前的日期加时间,time只取当前时间 ... 下一页