Delphi发送后台鼠标点击消息

打开SPY++，拦截游戏的 鼠标消息 WM_LBUTTONDOWN,WM_LBUTTONUP

HWND FindWindow(
LPCTSTR lpClassName, // 通过查找窗口类名 获取句柄 nil
LPCTSTR lpWindowName // 通过查找窗口标题 获取句柄
);

LRESULT SendMessage(
HWND hWnd, // 目标窗口句柄 在这里由FindWindow获取
UINT Msg, // 发送消息类型 WM_LBUTTONDOWN WM_LBUTTONUP
WPARAM wParam, // 这个我们用不着
LPARAM lParam // 这个是鼠标点击 窗口的坐标 高位是Y，低位X
);

//鼠标软模拟：好处就是不会真的移动鼠标 开始按钮 坐标 x=378 y=384
这里的坐标是相对于窗口的坐标位置,而且XY一起用16进制表示出来,Y在高位,X在低位,假设只知道XY坐标,可以自行转换一下.

自行转换用shl位移
procedure TForm1.Button1Click(Sender: TObject);
var
a:dword;
begin
a:=378+384 shl 16;
ShowMessage (a.ToHexString); //$0180017A
end;

sendmessage(hookHwnd,messages.WM_LBUTTONDOWN ,0,$0180017A);// 按下鼠标左键
sendmessage(hookHwnd,messages.WM_LBUTTONUP ,0, $0180017A); //抬起鼠标左键

硬件模拟：会真的移动鼠标
//mouse_event(MOUSEEVENTF_LEFTDOWN,X ,Y , 0, 0);
//mouse_event(MOUSEEVENTF_LEFTUP,X ,Y , 0, 0);