如何设置一段代码执行时间？

Question

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

Answer 1

最简单的是加2个timer控件，名字为Timer1和Timer2
Timer1的Interval属性设置为60000，即1分钟
Timer2的Interval属性设置为300000，即5分钟再声明一个全局变量bWork:Boolean;在2个Timer控件的OnTimer事件中分别加入以下代码procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bWork:=True;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
  bWork:=False;
end;
然后在你的功能代码里加上if bWork then
begin
你的代码
end;或者while bWork do
begin
你的代码
end;看你的需要了。

Answer 2

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