查找系统中运行的程序，并且在运行程序上查找要点击的按钮并点击

Question

希望能写个例子
并加上注解

Answer 1

这个测试就是本身程序的测试，如果你想测试其它程序，自己改标题名啦unit Unit5;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form5: TForm5;implementation{$R *.dfm}procedure TForm5.Button1Click(Sender: TObject);
var
hpa,hcl:Thandle;
begin
hpa:=Findwindow(nil,'Form5');   //查找窗口  　第一个参数为类名，不清楚可指定nil，第二个为窗口的标题
hcl:=Findwindowex(hpa,0,nil,'Button2');
//查找子句柄 第一个参数为父句柄，第二个参数为子窗口句柄，　
//第三个参数为类名，不清楚可指定nil，第四个为窗口的标题
SendMessage(hpa,WM_COMMAND,BN_CLICKED,hcl); //对子句柄发送单击消息
end;procedure TForm5.Button2Click(Sender: TObject);
begin
showmessage('这是一个测试');
end;end.