Question

delphi 语法问题，帮帮看看，谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
gameh:hwnd;
begin
gameh:=findwindow(nil,'对对碰角色版') ;
//模拟鼠标单击
sendmessage(gameh,messages.WM_Lbuttondown,0,$0180017A);
sendmessage(gameh,messages.WM_LBUTTONUP ,0, $0180017A);
end;
messages.后不弹出提示；而且 messages 和 WM_Lbuttondown和WM_Lbuttonup 语法显示错误,大大们帮忙看下为什么错误？

Answer 1

你获取的是句柄gameh，获取后你是想模拟鼠标左键点击，那你先要确定你鼠标点击的坐标，这个坐标是指该窗口所对应的坐标，而非屏幕坐标，例如为x，y，然后用下面的代码即可
SendMessage(gameh, WM_LBUTTONDOWN, x, y);
sleep(50);
SendMessage(gameh, WM_LBUTTONUP, x, y);

//窗口坐标可以通过计算获取
窗口横坐标x = 鼠标屏幕横坐标 - 窗口距离屏幕的左边距
窗口纵坐标y = 鼠标屏幕纵坐标 - 窗口距离屏幕的上边距

追问

我用spy++找的坐标，xy就是上面的，没错啊
教程是用这个的。。。
而且我运行他保留下来的源代码没错，我自己写就出错了
是怎么回事？

追答

你那能不能把出错信息发出来看下

追问

是这个吗？

追答

你没有引用messages单元，在头部
uses
Messages

追问

好了，为什么我默认是winapi.messages 我把前面的winapi.删掉就好了？

追答

这个看单元引用顺序的，应该是引用了 winapi单元

追问

那winapi.messages和messages 有什么区别?
为什么我一创建就是winapi.messages?

Answer 2

士大夫

Answer 3

顶