Delphi编程模拟鼠标操作

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

首先启动一个新的项目，在空白的窗体上添加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函数就可以实现远程的鼠标管理和操作。