高中信息技术教学论文 在应用程序中跟踪MOUSE的坐标.docVIP

在应用程序中跟踪MOUSE的坐标 第一步，建一DLL，DELPHI中NEW-》DLL SAVE AS GETKEY library getKey; usesSysUtils,Windows,HookMain in hookmain.pas; exportsOpenGetKeyHook,CloseGetKeyHook,GetPublicP; beginNextHook := 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=recorddata1:array [1..2] of DWORD;data2:TMOUSEHOOKSTRUCT;end;var hObject : Thandle;pMem : Poi