利用熱鍵控制鼠標(biāo)移動(dòng)的一個(gè)程序

1、利用熱鍵控制鼠標(biāo)移動(dòng)的一個(gè)程序         07-04-12 17:29:00     作者：未知    編輯：studa20- 本程序可以使用熱鍵來將鼠標(biāo)移動(dòng)到某一個(gè)指定的坐標(biāo)。是一個(gè)定義熱鍵的示例程序。本程序的熱鍵為小鍵盤的5，在編輯框內(nèi)可以指定坐標(biāo)。 unit MainUnit;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Co

2、ntrols, Forms, Dialogs,  StdCtrls, Mask;type  TForm1 = class(TForm)    btnSetHK: TButton;    btnExit: TButton;    GroupBox2: TGroupBox;    Label3: TLabel;    Label4: TLabel;    btnUnsetHK: TButton;

3、60;   edYPos: TMaskEdit;    edXPos: TMaskEdit;    Memo: TMemo;    procedure btnExitClick(Sender: TObject);    procedure btnSetHKClick(Sender: TObject);    procedure btnUnsetHKClick(Sender: TObject);   

4、; 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 *.DFMprocedure TForm1.btnExitClick(Sender:

5、 TObject);begin    Close;end;procedure TForm1.btnSetHKClick(Sender: TObject);begin  if idHotKey<>0 then Exit;  idHotKey := GlobalAddAtom('EmuMouse'); /給熱鍵取得一個(gè)唯一的標(biāo)識  RegisterHotKey(Handle, idHotKey, 0, VK_NUMPAD5); /注冊熱鍵end;procedure TForm1.OnHotKey(var Message:

6、 TWMHOTKEY);var  Point: TPoint;  X, Y: Word;begin  GetCursorPos(Point); /取回當(dāng)前坐標(biāo)  try    X := StrToInt(edXPos.Text);    Y := StrToInt(edYPos.Text);  except    ShowMessage('坐標(biāo)輸入不正確.');    Exit;  end; 

7、; 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 TForm1.btnUnsetHKClick(Sender: TObject);begin  if idHotKey = 0 t