知识大全 用Delphi编程模拟鼠标操作

Posted 操作

篇首语：业精于勤而荒于嬉，行成于思而毁于随本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用Delphi编程模拟鼠标操作相关的知识，希望对你有一定的参考价值。

用Delphi编程模拟鼠标操作  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本实例介绍如何在自己的程序里面模拟鼠标的常用操作 　　　　首先启动一个新的项目 在空白的窗体上添加 个TButton组件 添加组件后的窗体如图 所示 　　 >　　 >　　　　这 个按钮分别用于模仿鼠标的 个动作——移动鼠标到指定位置 左键单击 左键双击和右键单击 　　　　下面以鼠标左键单击为例来说明如何模拟鼠标操作 　　　　procedure TForm btnLClickClick(Sender: TObject);　　begin　　SetCursorPos( );　　mouse_event(MOUSEEVENTF_LEFTDOWN );　　mouse_event(MOUSEEVENTF_LEFTUP );　　end;　　　　首先需要通过SetCursorPos函数来设置需要单击的坐标 然后通过mouse_event (MOUSEEVENTF_LEFTDOWN )语句在( )坐标处按下鼠标左键 最后不要忘了通过mouse_event(MOUSEEVENTF_LEFTUP )语句释放鼠标左键 　　　　双击的操作可以通过两个连续的单击来实现 鼠标移动的操作可以通过指定mouse_event 函数的第 个参数MOUSEEVENTF_MOVE 第 个和第 个参数为左边来实现 右键单击和左键单击的原理一致 只不过mouse_event函数中的参数分别替换为MOUSEEVENTF_RIGHTDOWN和MOUSEEVENTF_RIGHTUP 　　　　程序代码如下 　　　　unit Unit ;　　interface　　　　uses　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs StdCtrls;　　type　　TForm = class(TForm)　　btnMove: TButton;　　btnLClick: TButton;　　btnLDClick: TButton;　　btnRClick: TButton;　　procedure btnMoveClick(Sender: TObject);　　procedure btnLClickClick(Sender: TObject);　　procedure btnLDClickClick(Sender: TObject);　　procedure btnRClickClick(Sender: TObject);　　private　　 Private declarations 　　public　　 Public declarations 　　end;　　　　var　　Form : TForm ;　　implementation　　$R * dfm　　　　procedure TForm btnMoveClick(Sender: TObject);　　begin　　mouse_event(MOUSEEVENTF_MOVE );　　end;　　　　procedure TForm btnLClickClick(Sender: TObject);　　begin　　SetCursorPos( );　　mouse_event(MOUSEEVENTF_LEFTDOWN );　　mouse_event(MOUSEEVENTF_LEFTUP );　　end;　　　　procedure TForm btnLDClickClick(Sender: TObject);　　begin　　SetCursorPos( );　　mouse_event(MOUSEEVENTF_LEFTDOWN );　　mouse_event(MOUSEEVENTF_LEFTUP );　　mouse_event(MOUSEEVENTF_LEFTDOWN );　　mouse_event(MOUSEEVENTF_LEFTUP );　　end;　　　　procedure TForm btnRClickClick(Sender: TObject);　　begin　　SetCursorPos( );　　mouse_event(MOUSEEVENTF_RIGHTDOWN );　　mouse_event(MOUSEEVENTF_RIGHTUP );　　end;　　end 　　　　保存文件 然后按F 键运行程序 程序运行的初始画面如图 所示 　　 >　　 >　　　　通过单击窗体上的 移动鼠标 左键单击 左键双击 和 右键单击 按钮可以分别完成模拟移动鼠标到指定位置 左键单击 左键双击和右键单击等操作 　　　　本程序介绍了如何在程序中模拟鼠标的常用操作 这一点在远程监控软件中非常重要 通过mouse_event函数就可以实现远程的鼠标管理和操作 cha138/Article/program/Delphi/201311/24687

相关参考

知识大全 用Delphi编制趣味动画鼠标

用Delphi编制趣味动画鼠标  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　我们经常可以看到许

知识大全 delphi编程实现改变操作系统日期

　　日期函数Now()Date()Time()大家都用得多了这些函数是读取系统日期时间的可是遇到需要改变操作系统的时间时他们就一点办法也没有而Delphi又没有提供相关的函数所以只好求助于API函数S

知识大全 用Delphi编写圆周率模拟器

用Delphi编写圆周率模拟器  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！圆周率π是个古老的东西

知识大全 用Delphi编写圆周率模拟器[2]

用Delphi编写圆周率模拟器[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　程序首先在I

知识大全 用Delphi编写圆周率模拟器[1]

用Delphi编写圆周率模拟器[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　圆周率π是个

知识大全 用Delphi进行OpenGL编程学习心得

用Delphi进行OpenGL编程学习心得  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在开发

知识大全 用Delphi编程访问SQLServer数据库

用Delphi编程访问SQLServer数据库  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　De

知识大全 用Delphi编程教你制作点歌台

用Delphi编程教你制作点歌台  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ &nbs

知识大全 用DELPHI编程访问SQL SERVER数据库

用DELPHI编程访问SQLSERVER数据库  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　D

知识大全 实用 按键精灵傻瓜应用实例3则

按键精灵是一个用来模拟鼠标键盘动作的软件通过制作脚本可以让按键精灵代替您的双手自动执行一系列鼠标键盘动作按键精灵简单易用不需要任何编程知识就可以作出功能强大的脚本只要您在电脑前用双手可以完成的动作按键