|
在应用程序中跟踪MOUSE的坐标
|
| |
第一步，建一DLL，DELPHI中NEW-》DLL SAVE AS GETKEY
library getKey;
uses
SysUtils,
Windows,
HookMain in hookmain.pas;
exports
OpenGetKeyHook,
CloseGetKeyHook,
GetPublicP;
begin
NextHook := 0;
procSaveExit := ExitProc;
DLLproc := @DLLMain;
ExitProc := @HookExit;
DLLMain(DLL_PROCESS_ATTACH);
end.
第二步，建一UNIT ，HOOK MAIN。关键在于CreateFileMapping 和 消息 WM_NCMouseMove, WM_MOUSEMOVE:
unit HookMain;
interface
uses Windows, Messages, Dialogs, SysUtils;
//type DataBuf = Array [1..2] of DWORD;
type mydata=record
data1:array [1..2] of DWORD;
|
|
|
|
|
教育论文中心