如何找出外部程序某一窗口上的所有控件。

[guosq]

下面的程序可以找出当前程序上的所有控件名称。
procedure TForm1.Button1Click(Sender: TObject);
var
i,j :integer;
s:string;
begin
form1.ListBox2.Items.Clear;
i:=form1.ControlCount;
for j:=0 to i-1 do
begin
s:=form1.Controls[j].name;
form1.ListBox2.Items.Add(s);
end;
end;