定时执行

Question

定时的间隔很长 一天在规定时间执行这样的一个程序怎么样的一个思路？

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if timetostr(time)='00:00:00' or timetostr(time)='12:00:00' then
   begin
      …………
   end;
end;

Answer 2

定时器 procedure TForm1.MyOnTimer(Sender: TObject);
begin
  Inc(I);
  Form1.Caption := IntToStr(I);
  if i>5then
  begin
    i:=0;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.OnTimer := MyOnTimer;
end;