高中信息技术教学论文利用热键控制鼠标移动的一个程序

1、利用热键控制鼠标移动的一个程序- 本程序可以使用热键来将鼠标移动到某一个指定的坐标。是一个定义热键的示例程序。本程序的热键为小键盘的5，在编辑框内可以指定坐标。 unit MainUnit;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, Mask;type  TForm1 = class(TForm)    btnSetHK: TButton;  

2、0; btnExit: TButton;    GroupBox2: TGroupBox;    Label3: TLabel;    Label4: TLabel;    btnUnsetHK: TButton;    edYPos: TMaskEdit;    edXPos: TMaskEdit;    Memo: TMemo;    procedure

3、 btnExitClick(Sender: TObject);    procedure btnSetHKClick(Sender: TObject);    procedure btnUnsetHKClick(Sender: TObject);    procedure OnHotKey(var Message: TWMHOTKEY); message WM_HOTKEY;    procedure FormDestroy(Sender: TObject);  p

4、ublic    Public declarations   end;var  Form1: TForm1;const  idHotKey : WORD = 0;implementation$R *.DFMprocedure TForm1.btnExitClick(Sender: TObject);begin    Close;end;procedure TForm1.btnSetHKClick(Sender: TObject);begin  if idHotKey<>0 then Exit;

5、  idHotKey := GlobalAddAtom('EmuMouse'); /给热键取得一个唯一的标识  RegisterHotKey(Handle, idHotKey, 0, VK_NUMPAD5); /注册热键end;procedure TForm1.OnHotKey(var Message: TWMHOTKEY);var  Point: TPoint;  X, Y: Word;begin  GetCursorPos(Point); /取回当前坐标  try    X := St

6、rToInt(edXPos.Text);    Y := StrToInt(edYPos.Text);  except    ShowMessage('坐标输入不正确.');    Exit;  end;  try    Mouse_Event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_LEFTDOWN, Point.X, Point.Y, 0, GetMessageExtraInfo); 

7、60;  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 then Exit;  UnRe