24小时运行的程序，在规定的时间如每天早晨07：00运行它下面的子程序，各位大师有什么好办法？

Question

你可以用一个Timer控件，然后确定间隔时间，比如说15分钟。那么程序每15分钟执行一次Ontimer.在这里面你可以再确定具体时间。比如说，如果当前小时不是7点，那么退出。如果当前小时是7点，并且分钟小于15，那么就执行操作。这样就可以保证每天在7点15分前，你所要的操作可以进行了。

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if 如果是七点 then
    begin
    program1
    exit;
    end
  program2;
end;

Answer 2

你可以用一个Timer,设置Interval:=5000 (半分钟一次),在它的Ontimer事件中(双击Timer即可)写如下代码:
procedure TForm1.Timer1Timer(Sender: TObject);
var temp,temp_time:string;
begin
  temp:=datetimetostr(now);
  temp_time:=copy(temp,length(temp)-8,6);
  if temp_time='19:00' then
  begin
    Do_Something;  //运行你要执行的程序
  end;
end;当然,半分钟有点短,你也可以改一改.