用Delphi编程模拟鼠标操作

• 
  　　本实例介绍如何在自己的程序里面模拟鼠标的常用操作。
  
  　　首先启动一个新的项目，在空白的窗体上添加4个TButton组件。添加组件后的窗体如图1所示。
  
  
  
  图1 添加组件后的窗体
  
  　　这4个按钮分别用于模仿鼠标的4个动作——移动鼠标到指定位置、左键单击、左键双击和右键单击。
  
  　　下面以鼠标左键单击为例来说明如何模拟鼠标操作：
  
  procedure TForm1.btnLClickClick(Sender: TObject);
  begin
  　SetCursorPos(10,10);
  　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  end;
  　　首先需要通过SetCursorPos函数来设置需要单击的坐标。然后通过mouse_event (MOUSEEVENTF_LEFTDOWN,0,0,0,0)语句在(10,10)坐标处按下鼠标左键。最后不要忘了通过mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)语句释放鼠标左键。
  
  　　双击的操作可以通过两个连续的单击来实现；鼠标移动的操作可以通过指定mouse_event 函数的第1个参数MOUSEEVENTF_MOVE，第2个和第3个参数为左边来实现；右键单击和左键单击的原理一致，只不过mouse_event函数中的参数分别替换为MOUSEEVENTF_RIGHTDOWN和MOUSEEVENTF_RIGHTUP。
  
  　　程序代码如下：
  
  unit Unit1;
  interface
  
  uses
  　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  　Dialogs, StdCtrls;
  type
  　TForm1 = 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
  　Form1: TForm1;
  　implementation
  　{$R *.dfm}
  
  　procedure TForm1.btnMoveClick(Sender: TObject);
  　begin
  　　mouse_event(MOUSEEVENTF_MOVE,100,100,0,0);
  　end;
  
  　procedure TForm1.btnLClickClick(Sender: TObject);
  　begin
  　　SetCursorPos(10,10);
  　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  　end;
  
  　procedure TForm1.btnLDClickClick(Sender: TObject);
  　begin
  　　SetCursorPos(200,200);
  　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  　　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  　　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
  　end;
  
  　procedure TForm1.btnRClickClick(Sender: TObject);
  　begin
  　　SetCursorPos(200,200);
  　　mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  　　mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
  　end;
  end.
  　　保存文件，然后按F9键运行程序，程序运行的初始画面如图2所示。
  
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用Delphi编程模拟鼠标操作 相关文章：
• ·用Delphi编程模拟鼠标操作
• 用Delphi编程模拟鼠标操作 相关软件

上一篇:如何把文件删除到回收站中

下一篇:Delphi:程序间相互通讯问题的解决

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐