＋设为首页 ＋添加到收藏夹
在delphi里面的定时器组件可以设置它的Interval属性来确定时间间隔
当时间间隔一到就执行放在定时器里面的代码。
我想问的是除了用定时器还有什么其他的办法了吗？而且它的时间间隔
最多只能设到30几秒。例如：我要每隔1小时执行一段特定的代码，应该怎么
办呢？
var
Form1: TForm1;
CatTime:integer;
const Onehour=3600;
implementatio
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled :=false;
timer1.Interval:=1000;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled :=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(CatTime);
if CatTime=OneHour then
showmessage(1小时);
END;
结贴
