SendMessage 模拟鼠标点击

使用SendMessage 模拟鼠标点击 [问题点数:25分,结帖人Game4s]

 
已知目标窗口的句柄 hWnd
如何根据自定义的X,Y坐标值使用SendMessage向目标窗口发送鼠标点击指令?
请给出实例代码.非常感谢

回复次数:8
 
SendMessage(hWnd,WM_LMOUSEDOWN,x,y);
专访陈抒:C++至今不可替代
 
SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, makelparam(x,y));
IBM 邀您分享国内外迁移Power案例
 
SendMessage(hwnd, WM_LBUTTONDOWN, MK_LBUTTON, makelparam(x,y));
【免费】解读海外市场营销奥秘
 
用RegisterwindowMessage注冊唯一窗口标识
send方
var
  Form1: TForm1;
  UserMessage:UINT;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FindWindow('TForm1','RegisterMessage Get Example'),UserMessage,0,0);
  //'RegisterMessage Get Example'接受窗口名字caption
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  UserMessage:=RegisterwindowMessage('System Wide User Defined Message');
end;

get方:
var
  Form1: TForm1;
  UserMessage:UINT;

implementation

{$R *.dfm}

procedure TForm1.DefaultHandler(var Msg);
begin
  inherited DefaultHandler(Msg);

  if (TMessage(Msg).Msg=UserMessage) then
  begin
    button1.Click;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  UserMessage:=RegisterWindowMessage('System Wide User Defined Message');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('ok');
end;
 
SendMessage(hwnd, WM_LBUTTONDOWN, MK_LBUTTON, makelparam(x,y));
 
GetCursorPos(m);是取鼠标位置。 
WindowFromPoint(m)是取M坐标点处的句柄,在这里当然也就是鼠标的位置。 
sendMessage(WindowFromPoint(m), WM_LBUTTONDOWN, 0, 0);
SendMessage(WindowFromPoint(m), WM_LBUTTONUP, 0, 0);
 
用mouse_event 函数多好
 
自己解决了。
其实关键就是lParam 的格式问题.
前面几位回答的MakeLParam 函数没有尝试过,自己用了个
StrToInt(#36+IntToHex(Y,4)+IntToHex(X,4)))
达到了预期效果。结贴给分了
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页