unit Mouse_Event_Demo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ioriliao1: TMenuItem;
    QQ825306621: TMenuItem;
    N2010811: TMenuItem;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{模拟鼠标动作API函数mouse_event，它可以实现模拟鼠标按下和放开等动作。}
{procedure mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); stdcall;}
{参数说明:}
{dwFlags, 鼠标动作标识。}
{dx, 鼠标水平方向位置。 }
{dy, 鼠标垂直方向位置。 }
{dwData, 鼠标轮子转动的数量。}
{dwExtraInfo,一个关联鼠标动作辅加信息。}
{其中，dwFlags表示了各种各样的鼠标动作和点击活动，它的常用取值如下：}
{MOUSEEVENTF_MOVE　表示模拟鼠标移动事件。}
{MOUSEEVENTF_LEFTDOWN 表示模拟按下鼠标左键。}
{MOUSEEVENTF_LEFTUP 表示模拟放开鼠标左键。}
{MOUSEEVENTF_RIGHTDOWN 表示模拟按下鼠标右键。}
{MOUSEEVENTF_RIGHTUP 表示模拟放开鼠标右键。}
{MOUSEEVENTF_MIDDLEDOWN 表示模拟按下鼠标中键。}
{MOUSEEVENTF_MIDDLEUP 表示模拟放开鼠标中键。}

{获取当前鼠标位置函数GetCursorPos()}
{function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;}
{参数说明:}
{lpPoint, 返回鼠标的当前位置。}
{TPoint结构说明:}
{TPoint = packed record
    X: Longint; 鼠标的水平方向位置。
    Y: Longint; 鼠标的垂直方向位置。
end;}
{返回值：如果成功，返回True；如果失败，返回值为False。}

{设置当前鼠标位置函数SetCursorPos()。}
{function SetCursorPos(X, Y: Integer): BOOL; stdcall;}
{参数说明:}
{X, 鼠标的水平方向位置。}
{Y, 鼠标的垂直方向位置。}
{返回值：如果成功，返回True；如果失败，返回值为False。}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;
{模拟鼠标相对当前位置水平移动50个像素}
procedure TForm1.Button1Click(Sender: TObject);begin
     Mouse_Event(MOUSEEVENTF_MOVE,50,0,0,0);
end;

{模拟鼠标左键单击}
procedure TForm1.Button2Click(Sender: TObject);begin
     {先把鼠标移动到目标按钮}
     Mouse_Event(MOUSEEVENTF_MOVE,30,0,0,0);
     {模拟鼠标左键按下动作}
     Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
     {模拟鼠标左键弹起动作}
     Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

procedure TForm1.Button3Click(Sender: TObject);begin
      ShowMessage('鼠标左键已经单击中了我');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
     {先把鼠标移动到目标窗体}
     Mouse_Event(MOUSEEVENTF_MOVE,0,50,0,0);
     {模拟鼠标右键按下动作}
     Mouse_Event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
     {模拟鼠标右键弹起动作}
     Mouse_Event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;

end.