Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask;type
TForm1 = class(TForm)
btnSetHK: TButton;
btnExit: TButton;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
btnUnsetHK: TButton;
edYPos: TMaskEdit;
edXPos: TMaskEdit;
Memo: TMemo;
procedure btnExitClick(Sender: TObject);
procedure btnSetHKClick(Sender: TObject);
procedure btnUnsetHKClick(Sender: TObject);
procedure OnHotKey(var Message: TWMHOTKEY); message WM_HOTKEY;
procedure FormDestroy(Sender: TObject);
public
{ Public declarations }
end;var
Form1: TForm1;const
idHotKey : WORD = 0;implementation{$R *}procedure xitClick(Sender: TObject);
begin
Close;
end;procedure etHKClick(Sender: TObject);
begin
if idHotKey<>0 then Exit;
idHotKey := GlobalAddAtom('EmuMouse'); //给热键取得一个唯一的标识
RegisterHotKey(Handle, idHotKey, 0, VK_NUMPAD5); //注册热键
end;procedure tKey(var Message: TWMHOTKEY);
var
Point: TPoint;
X, Y: Word;
begin
GetCursorPos(Point); //取回当前坐标 try
X := StrToInt();
Y := StrToInt();
except
ShowMessage('坐标输入不正确.');
Exit;
end; try
Mouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTDOWN, Point.X, Point.Y, 0, GetMessageExtraInfo); SetCursorPos(X, Y); Mouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTUP, X, Y, 0, GetMessageExtraInfo); except
ShowMessage('Error'); end;
end;procedure nsetHKClick(Sender: TObject);
begin
if idHotKey = 0 then Exit;
UnRegisterHotKey(Handle, idHotKey); //注销热键
DeleteAtom(idHotKey); //注销标识
idHotKey := 0;
end;
procedure Destroy(Sender: TObject);
begin
k;
end;end.
--------------------------------------------------------------------------------
这是dfm文件object Form1: TForm1
Left = 296
Top = 238
AutoSize = True
Borderstyle=bsDialog
BorderWidth = 8
Caption = '模拟鼠标拖动'
ClientHeight = 265
ClientWidth = 211
Color = clBtnFace
set = GB2312_CHARSET
r = clWindowText
ht = -12
= '新宋体'
e=[]
OldCreateOrder = False
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object btnSetHK: TButton
Left = 136
Top = 8
Width = 75
Height = 25
Caption = '设置热键(&H)'
TabOrder = 0
OnClick = btnSetHKClick
end
object btnExit: TButton
Left = 136
Top = 72
Width = 75
Height = 25
Caption = '退出(&X)'
TabOrder = 2
OnClick = btnExitClick
end
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 129
Height = 97
Caption = '目的坐标'
TabOrder = 3
object Label3: TLabel
Left = 16
Top = 29
Width = 6
Height = 12
Caption = 'X'
end
object Label4: TLabel
Left = 16
Top = 61
Width = 6
Height = 12
Caption = 'Y'
end
object edXPos: TMaskEdit
Left = 32
Top = 24
Width = 73
Height = 20
EditMask = '0000;1;_'
MaxLength = 4
TabOrder = 0
Text = '0000'
end
object edYPos: TMaskEdit
Left = 32
Top = 56
Width = 73
Height = 20
EditMask = '0000;1;_'
MaxLength = 4
TabOrder = 1
Text = '0000'
end
end
object btnUnsetHK: TButton
Left = 136
Top = 40
Width = 75
Height = 25
Caption = '取消热键(&U)'
TabOrder = 1
OnClick = btnUnsetHKClick
end
object Memo: TMemo
Left = 0
Top = 104
Width = 209
Height = 161
TabOrder = 4
end
end