看流星社区

 找回密码
 注册账号
查看: 2891|回复: 1

[Delphi] 请问如何用delphi 模拟移动点击鼠标

[复制链接]

该用户从未签到

发表于 2011-3-31 09:33:27 | 显示全部楼层 |阅读模式
请问如何用delphi 模拟移动点击鼠标,实现后台的!!!谢谢~

该用户从未签到

发表于 2011-3-31 09:33:40 | 显示全部楼层
var
  mousein:tagINPUT;   

  mousein.type=INPUT_MOUSE;   
  mousein.mouseData=0;   
  mousein.time=0;   
  mousein.dwFlags=MOUSEEVENTF_LEFTDOWN;   
  SendInput(1,&in,sizeof(in));   
  mousein.dwFlags=MOUSEEVENTF_LEFTUP;   
  SendInput(1,mousein,sizeof(mousein));
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-28 23:50

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表