请教高人,如何自动去执行程序?

Question

我做了个小程序,是关于自动下载文件的.是这样的,当下载完这个文件后,要点一下另一按钮检测一下某些东东,再去下另一个文件,这个思路怎么做?就是说,如何才能让程序自已执行,不让我下完了再点一下.望高人提点,谢了.

Answer 1

不想用鼠标点的话，直接调用ButtonClick啊，让程序帮你点。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  //下载文件
  ......  Button2Click(nil);  //再去下载另一个文件
  ......
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  //检测一下某些东东
  ......
end;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;const WM_MyMessage=WM_App+1;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure OnMyMessage(var Msg : TMessage);message  WM_MyMessage;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
    ShowMessage('开始下一步处理');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    //开始下载
    //....
    //下载完成
    //发送一条自定义消息
    SendMessage(Form1.Handle,WM_MyMessage,0,0);
end;procedure TForm1.OnMyMessage(var Msg : TMessage);
begin
   Button2.Click;
end;end.