delphi鼠标模拟源码

时间:2016-01-17 05:18:19
【文件属性】:

文件名称:delphi鼠标模拟源码

文件大小:652B

文件格式:RAR

更新时间:2016-01-17 05:18:19

鼠标模拟

procedure mouseLeftDown; //按下左键 procedure mouseLeftUp; //弹起左键 procedure mouseLeftClick; // 鼠标左键单击 procedure mouseRightClick; // 鼠标右键单击 procedure mouseMoveClick(x,y:integer); // 鼠标移动后左键单击 procedure mouseMoveRClick(x,y:integer); // 鼠标移动后右键单击 procedure mouseMoveTo(x,y:integer); // 鼠标光标移动 procedure mouseLeftDoubleClick; // 鼠标左键双击 // 在(x1,y1)按下鼠标左键,拖动到(x2,y2)--进行选择 // 一般用来选择字串然后删除,注意要完全包含所有要选择的内容 procedure mouseSelect(x1,y1,x2,y2:integer); //通过拖动选择


【文件预览】:
mouse.pas

网友评论

  • 谢谢分享,虽然不全,但是可以修复
  • 不错,非常好用,再加上全局热键就更好了!(*^__^*) 嘻嘻
  • 基本上是不错,但代码里好像还少了什么吧
  • 不错,可以达到效果