怎么设置一段代码执行时间

如何设置一段代码执行时间？
在一个程序里，我想让其中一段功能代码在程序运行1分钟后开始执行，执行时间为5分钟，即5分钟后停止执行，如何实现？

------解决方案--------------------
最简单的是加2个timer控件，名字为Timer1和Timer2
Timer1的Interval属性设置为60000，即1分钟
Timer2的Interval属性设置为300000，即5分钟

再声明一个全局变量bWork:Boolean;

在2个Timer控件的OnTimer事件中分别加入以下代码

Delphi(Pascal) code


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bWork:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  bWork:=False;
end;

------解决方案--------------------

时间控件是首选，不过执行5分钟？代码没执行完怎么办？

------解决方案--------------------

Timer1控件
Timer1事件
1楼讲述的很好

怎么设置一段代码执行时间

相关推荐