Question

关于delphi模拟鼠标点击按钮 小弟想写一个程序，让这个程序自动安装其它程序。比如安装ultraedit32,

程序的关键部分是这样写的
procedure TForm1.Button1Click(Sender: TObject);
var
h,i:HWND;
begin
winexec(‘d:\ue.exe’,sw_SHOWNORMAL);
h:= FindWindow(nil,'UltraEdit-32 12.10b 安装');
i:= FindWindowEx(h,0,'Button','下一步 >');
PostMessage(i,WM_LBUTTONDOWN,0,0);
sleep(300);
PostMessage(i,WM_LBUTTONUP,0,0);
end;
运行这个函数时，可以清楚的看到ue的安装程序上“下一步”的按钮被按下然后又弹起，但是只是按钮动了，它并没有像平时一个到下一个界面中，说白了，就是点了按钮和没点的结果是一样的，它不往下一步走，请问各位大侠这是办什么啊。下面是用spy++得到的正常手动点击下一步时的动作

请大侠帮帮忙啊，小弟谢谢了
sendmessage和postmessage 的效果是一样的，只是按钮动，但并不往下一个界面走





Answer 1

这个问题弱爆了。Windows的标准Button控件，有自己的消息循环，以BM开头。
procedure TForm1.Button1Click(Sender: TObject);
var
h, i: HWND;
begin
WinExec(‘d:\ue.exe’, SW_SHOWNORMAL);
h := FindWindow(nil, 'UltraEdit-32 12.10b 安装');
i := FindWindowEx(h,0,'Button','下一步 >');
SendMessage(i, BM_CLICK, 0, 0);
end;

Answer 2

弱爆了的问题。 Windows标准按钮控制自己的消息循环，以BM开头。
过程TForm1.Button1Click（发件人：TObject的）;
VAR
H，I：HWND;
开始
WinExec（“D：\ ue.exe”，SW_SHOWNORMAL ）;
H：=的FindWindow（无，“UltraEdit-32的12.10b安装'）;
I：= FindWindowEx（H，0，'按钮'，'>'）; </ SendMessage函数（I，BM_CLICK，0，0）;
结束;