利用热键控制鼠标移动的一个程序.docx
- 文档编号:16527212
- 上传时间:2023-07-14
- 格式:DOCX
- 页数:5
- 大小:15.21KB
利用热键控制鼠标移动的一个程序.docx
《利用热键控制鼠标移动的一个程序.docx》由会员分享,可在线阅读,更多相关《利用热键控制鼠标移动的一个程序.docx(5页珍藏版)》请在冰点文库上搜索。
利用热键控制鼠标移动的一个程序
利用热键控制鼠标移动的一个程序
-
本程序可以使用热键来将鼠标移动到某一个指定的坐标。
是一个定义热键的示例程序。
本程序的热键为小键盘的5,在编辑框内可以指定坐标。
unitMainUnit;
interface
uses
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;
procedurebtnExitClick(Sender:
TObject);
procedurebtnSetHKClick(Sender:
TObject);
procedurebtnUnsetHKClick(Sender:
TObject);
procedureOnHotKey(varMessage:
TWMHOTKEY);messageWM_HOTKEY;
procedureFormDestroy(Sender:
TObject);
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
const
idHotKey:
WORD=0;
implementation
{$R*.DFM}
procedure(Sender:
TObject);
begin
Close;
end;
procedure(Sender:
TObject);
begin
ifidHotKey0thenExit;
idHotKey:
=GlobalAddAtom(‘EmuMouse‘);//给热键取得一个唯一的标识
RegisterHotKey(Handle,idHotKey,0,VK_NUMPAD5);//注册热键
end;
procedure(varMessage:
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,,,0,GetMessageExtraInfo);
SetCursorPos(X,Y);
Mouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTUP,X,Y,0,GetMessageExtraInfo);
except
ShowMessage(‘Error‘);
end;
end;
procedure(Sender:
TObject);
begin
ifidHotKey=0thenExit;
UnRegisterHotKey(Handle,idHotKey);//注销热键
DeleteAtom(idHotKey);//注销标识
idHotKey:
=0;
end;
procedure(Sender:
TObject);
begin
;
end;
end.
--------------------------------------------------------------------------------
这是dfm文件
objectForm1:
TForm1
Left=296
Top=238
AutoSize=True
BorderStyle=bsDialog
BorderWidth=8
Caption=‘模拟鼠标拖动‘
ClientHeight=265
ClientWidth=211
Color=clBtnFace
=GB2312_CHARSET
=clWindowText
=-12
=‘新宋体‘
=[]
OldCreateOrder=False
OnDestroy=FormDestroy
PixelsPerInch=96
TextHeight=12
objectbtnSetHK:
TButton
Left=136
Top=8
Width=75
Height=25
Caption=‘设置热键(&H)‘
TabOrder=0
OnClick=btnSetHKClick
end
objectbtnExit:
TButton
Left=136
Top=72
Width=75
Height=25
Caption=‘退出(&X)‘
TabOrder=2
OnClick=btnExitClick
end
objectGroupBox2:
TGroupBox
Left=0
Top=0
Width=129
Height=97
Caption=‘目的坐标‘
TabOrder=3
objectLabel3:
TLabel
Left=16
Top=29
Width=6
Height=12
Caption=‘X‘
end
objectLabel4:
TLabel
Left=16
Top=61
Width=6
Height=12
Caption=‘Y‘
end
objectedXPos:
TMaskEdit
Left=32
Top=24
Width=73
Height=20
EditMask=‘0000;1;_‘
MaxLength=4
TabOrder=0
Text=‘0000‘
end
objectedYPos:
TMaskEdit
Left=32
Top=56
Width=73
Height=20
EditMask=‘0000;1;_‘
MaxLength=4
TabOrder=1
Text=‘0000‘
end
end
objectbtnUnsetHK:
TButton
Left=136
Top=40
Width=75
Height=25
Caption=‘取消热键(&U)‘
TabOrder=1
OnClick=btnUnsetHKClick
end
objectMemo:
TMemo
Left=0
Top=104
Width=209
Height=161
TabOrder=4
end
end
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 利用 热键 控制 鼠标 移动 一个 程序