利用热键控制鼠标移动的一个程序

-本程序可以使用热键来将鼠标移动到某一个指定的坐标。是一个定义热键的示例程序。

本程序的热键为小键盘的5，在编辑框内可以指定坐标。

unit MainUnit;http://www.16sheji8.cn/

interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Mask;

typeTForm1 = 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;

varForm1: TForm1;

constidHotKey : WORD = 0;

implementation

{$R *.DFM}

procedure TForm1.btnExitClick(Sender: TObject);beginClose;end;

procedure TForm1.btnSetHKClick(Sender: TObject);beginif idHotKey<>0 then Exit;idHotKey := GlobalAddAtom('EmuMouse'); //给热键取得一个唯一的标识RegisterHotKey(Handle, idHotKey, 0, VK_NUMPAD5); //注册热键end;

procedure TForm1.OnHotKey(var Message: TWMHOTKEY);varPoint: TPoint;X, Y: Word;beginGetCursorPos(Point); //取回当前坐标

tryhttp://www.16sheji8.cn/X := StrToInt(edXPos.Text);Y := StrToInt(edYPos.Text);exceptShowMessage('坐标输入不正确.');Exit;end;

tryMouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTDOWN, Point.X, Point.Y, 0, GetMessageExtraInfo);

SetCursorPos(X, Y);

Mouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTUP, X, Y, 0, GetMessageExtraInfo);

exceptShowMessage('Error');

end;end;

procedure TForm1.btnUnsetHKClick(Sender: TObject);beginif idHotKey = 0 then Exit;UnRegisterHotKey(Handle, idHotKey); //注销热键DeleteAtom(idHotKey); //注销标识idHotKey := 0;end;

procedure TForm1.FormDestroy(Sender: TObject);beginbtnUnsetHK.Click;end;

end.

这是dfm文件

object Form1: TForm1Left = 296Top = 238AutoSize = TrueBorderStyle = bsDialogBorderWidth = 8Caption = '模拟鼠标拖动'ClientHeight = 265ClientWidth = 211Color = clBtnFaceFont.Charset = GB2312_CHARSETFont.Color = clWindowTextFont.Height = -12Font.Name = '新宋体'Font.Style = []OldCreateOrder = FalseOnDestroy = FormDestroyPixelsPerInch = 96http://www.16sheji8.cn/TextHeight = 12object btnSetHK: TButtonLeft = 136Top = 8Width = 75Height = 25Caption = '设置热键(&H)'TabOrder = 0OnClick = btnSetHKClickendobject btnExit: TButtonLeft = 136Top = 72Width = 75Height = 25Caption = '退出(&X)'TabOrder = 2OnClick = btnExitClickendobject GroupBox2: TGroupBoxLeft = 0Top = 0Width = 129Height = 97Caption = '目的坐标'TabOrder = 3object Label3: TLabelLeft = 16Top = 29Width = 6Height = 12Caption = 'X'endobject Label4: TLabelLeft = 16Top = 61Width = 6Height = 12Caption = 'Y'endobject edXPos: TMaskEditLeft = 32Top = 24Width = 73Height = 20EditMask = '0000;1;_'MaxLength = 4TabOrder = 0Text = '0000'endobject edYPos: TMaskEditLeft = 32Top = 56Width = 73Height = 20EditMask = '0000;1;_'MaxLength = 4TabOrder = 1Text = '0000'endendobject btnUnsetHK: TButtonLeft = 136Top = 40Width = 75Height = 25http://www.16sheji8.cn/Caption = '取消热键(&U)'TabOrder = 1OnClick = btnUnsetHKClickendobject Memo: TMemoLeft = 0Top = 104Width = 209Height = 161TabOrder = 4endendhttp://www.16sheji8.cn/