请问delphi中怎么用程序模拟鼠标点击，及鼠标移动?(10分)

请问delphi中怎么用程序模拟鼠标点击，及鼠标移动?<br>请帮我写上代码，谢谢！<br><br>xiny, 您的积分点(25)不能支付问题价值分(100)。<br>hehe,我只有25分，所以只能拿10出来了，不好意思！

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=151851

前边讨论过了，用mouse_event.<br>模拟点击:<br>mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );<br>mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );<br><br>移动：<br>Mouse_Event(MOUSEEVENTF_MOVE,1,1,0,0);<br>

惨了，没赶上......<br>可以看看我提过的问题<br>里面有的

hehe.我已经看到了！<br>谢谢各位！<br>

为什么我移动mouse。只是移动从mouse的当前位置计算呢。<br><br>怎么样才能移动到界面(屏幕)的指定位置.谢谢

SetCursorPos(X,Y)是相对于整个屏幕的位置。

mouse_event（Long dwFlags,Long dx,Long dy,Long cButtons,Long dwExtraInfo);<br><br>说明 模拟一次鼠标事件 <br><br>参数表 <br>dwFlags Long，下述标志的一个组合 <br>MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元 <br>MOUSEEVENTF_MOVE 移动鼠标 <br>MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下 <br>MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起 <br>MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下 <br>MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下 <br>MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下 <br>MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下 <br><br>dx Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动 <br><br>dy Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动 <br><br>cButtons Long，未使用 <br><br>dwExtraInfo Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序 <br>注解 <br>进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度<br>&nbsp;<br>&nbsp;<br>

接受答案了.