Question

Delphi 模拟鼠标点击

比如 我有个活动的窗口 Form1 我想点击 Form窗口顶点（也就是这个窗体左上角的坐标）坐标 X,Y 各加 50 的 位置的按钮 求源码

Answer 1

调用API函数 可以直接调用 我下面写的是VB程序 因手里没有DELPHI但 你略做修改即可。 Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10 这以上是下面用到的常量 代表的数值 mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 1, 1, 0, 0 这句是模拟鼠标点击的那句 然后就是需要移动 鼠标了 SetCursorPos 100,100 这样是设置鼠标到屏幕的 100，100的位置 可根据你自己的需要修改 如果你有一定编程基础我上面的这些就已经能够帮你了。 特殊声明：API在VB里需要声明 在DELPHI里不需要声明 直接调用即可。 （最上面的那些常量 可以直接带到函数里使用。）

Answer 2

如果精确度不需要太高 先用setcursorpos把鼠标移到目标位置，然后 mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);