用Delphi编程模拟鼠标操作

2008-02-23 07:15:26来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  本实例介绍如何在自己的程序里面模拟鼠标的常用操作。

  首先启动一个新的项目,在空白的窗体上添加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所示。


图2 程序运行的初始画面

  通过单击窗体上的“移动鼠标”、“左键单击”、“左键双击”和“右键单击”按钮可以分别完成模拟移动鼠标到指定位置、左键单击、左键双击和右键单击等操作。

  本程序介绍了如何在程序中模拟鼠标的常用操作,这一点在远程监控软件中非常重要,通过mouse_event函数就可以实现远程的鼠标管理和操作。

上一篇: Delphi初学者参考
下一篇: Delphi实现动态修改显示器分辨率

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用Delphi开发Web服务数据库程序

下一篇:用Delphi实现虚拟盘映射