Question

请大家解答delphi 后台模拟鼠标点击

RT 应当怎样实现 请高手提供例程 最好带注解的 谢谢各位高手了

Answer 1

SetCursorPos(kx,ky);//先指定鼠标点击的坐标

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//左键按下
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//左键起来

mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);//右键
mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);

mouse_event(MOUSEEVENTF_MIDDLEDOWN,0,0,0,0);//中键
mouse_event(MOUSEEVENTF_MIDDLEUP,0,0,0,0);