| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 473 人关注过本帖
标题:定时运行程序
取消只看楼主 加入收藏
sky4356192
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-21
收藏
 问题点数:0 回复次数:0 
定时运行程序

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只取当前时间
if (h_time>l_time) then begin
ss:=SecondsBetween(h_time,l_time); //求两个时间相差多少秒
if ss<5*60 then begin //如果时间间隔小于5分钟定时启动timer2
timer1.Enabled:=false;
showmessage('Inteval seconds:'+inttostr(ss));
timer2.Interval:=ss*1000;
timer2.Enabled:=true;
end;
end
else
timer1.enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.enable:=false;
showmessage('ok on time run the program');
// start...
timer1.Enabled:=true; //再次开始监控
end;


帮我加个输出的小程序!

搜索更多相关主题的帖子: 运行 
2007-05-22 18:53
快速回复:定时运行程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028430 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved