——急——请问怎么写代码控制其他程序窗口上的一个按钮？？？——

Question

我现在有一个可执行的EXE程序A，其上面有一个按钮B，现在我想在我的程序M里写代码控制A上的按钮B，比如让它按下，请问代码怎么写？谢谢先！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var  HWindow, HButton: THandle; //句柄变量
Begin
   HWindow := 0;
   While true Do
      Begin
       HWindow := FindWindowEx(0, HWindow, 'TForm1', Nil);//找Form1的窗体
       If HWindow <> 0 Then
        Begin
       HButton := FindWindowEx(HWindow, 0, 'TButton','测试');//找到发送按钮
      SendMessage(HButton, BM_CLICK, 0, 0);//发送消息
     break;
    End;
  end;
End;

Answer 2

首先;用findwindow()
然後;GetDlgItem()

Answer 3

用spy++等窗口查看软件看看程序A的窗口设计层次然后用findwindow和findwindowex一层一层的找到按钮B的Handle最后sendmessage就可以了

Answer 4

我是菜鸟
请问HWindow := FindWindowEx(0, HWindow, 'TForm1', Nil);//找Form1的窗体
怎么跟我的可执行文件A联系上，怎么参数上没有调用A，怎么回事？谢谢