在应用程序中跟踪MOUSE的坐标

1、 在应用程序中跟踪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 ，

2、hook main。关键在于createfilemapping 和 消息 wm_ncmousemove, wm_mousemove: unit hookmain; interfaceuses 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 : pointer;nexthook: hhook;procsave

3、exit: pointer; function hookhandler(icode: integer; wparam: wparam; lparam: lparam): lresult; stdcall; export;function opengetkeyhook(sender : hwnd;messageid : word) : bool; export;function closegetkeyhook: bool; export;function getpublicp : pointer;stdcall; export;procedure dllmain(dwreason:dword);

4、 far;procedure hookexit; far; implementation procedure unmapmem;beginif assigned(pmem) thenbeginunmapviewoffile(pmem);pmem := nilend;end; procedure mapmem;beginhobject := createfilemapping($ffffffff,nil,page_readwrite,0,$ffff,pchar(_iobuffer);if hobject = 0 then raise exception.create(创建公用数据的buffer不

5、成? ;pmem := mapviewoffile(hobject,file_map_write,0,0,sizeof(mydata);/ 1 or sizeof(databuf) ?/ 创建sizeof(databuf)的数据区if not assigned(pmem) thenbeginunmapmem;raise exception.create(创建公用数据的映射关系不成功!);end;end;procedure dllmain(dwreason:dword); far;begincase dwreason ofdll_process_attach :beginpmem := nil;

6、hobject := 0;mapmem; /以下的公有数据，如thwnd,tmessageid将直接使用本buf.end;dll_process_detach : unmapmem;dll_thread_attach,dll_thread_detach :; /缺省end;end; procedure hookexit; far;beginclosegetkeyhook;exitproc := procsaveexit;end; function getpublicp : pointer;export;begin /这里引出了公用数据区的指针，你可以在你的应用程序中自由操作它。但建议去掉此接口

7、。result := pmem;end; function hookhandler(icode: integer; wparam: wparam; lparam: lparam): lresult; stdcall; export;beginresult := 0;if icode $#60; 0then result := callnexthookex(nexthook, icode, wparam, lparam);/ this is probably closer to what you would want to do.case wparam ofwm_lbuttondown:begi

8、nend;wm_lbuttonup:beginend;wm_lbuttondblclk:beginend;wm_rbuttondown:beginmessagebeep(1);end;wm_rbuttonup:beginend;wm_rbuttondblclk:beginend;wm_mbuttondown:beginend;wm_mbuttonup:beginend;wm_mbuttondblclk:12beginend;wm_ncmousemove, wm_mousemove:beginmydata(pmem).data2:=pmousehookstruct(lparam);/ messa

9、gebeep(1);/sendmessage(databuf(pmem)1,databuf(pmem)2,wparam,lparam );sendmessage(mydata(pmem).data11,mydata(pmem).data12,wparam,integer(mydata(pmem).data2) );end;end; /发送消息end; function opengetkeyhook(sender : hwnd;messageid : word) : bool; export;beginresult := false;if nexthook $#60;$#62; 0 then e

10、xit; /已经安装了本钩子/ databuf(pmem)1 := sender; /填数据区/ databuf(pmem)2 := messageid; /填数据区mydata(pmem).data11:=sender;mydata(pmem).data12:=messageid; nexthook := setwindowshookex(wh_mouse, hookhandler, hinstance, 0);result := nexthook $#60;$#62; 0;end; function closegetkeyhook: bool; export;beginif nexthoo

11、k $#60;$#62; 0 thenbeginunhookwindowshookex(nexthook); /把钩子链链接到下一个钩子处理上.nexthook := 0;end;result := nexthook = 0;end; end. 第三步，测试dll，建一project。关键在于override wndproc unit unit1; interface useswindows, messages, sysutils, classes, graphics, controls, forms, dialogs,stdctrls, extctrls; typetform1 = clas

12、s(tform)uncapture: tbutton;capture: tbutton;exit: tbutton;panel1: tpanel;show: tlabel; label1: tlabel;counter: tlabel;procedure exitclick(sender: tobject);procedure uncaptureclick(sender: tobject);procedure captureclick(sender: tobject);private private declarations public public declarations procedu

13、re wndproc(var message: tmessage); override;end; varform1: tform1;var num : integer;const messageid = wm_user + 100;implementation $r *.dfmfunction opengetkeyhook(sender : hwnd;messageid : word) : bool; external getkey.dll;function closegetkeyhook: bool; external getkey.dll; procedure tform1.exitcli

14、ck(sender: tobject);beginclose;end; procedure tform1.uncaptureclick(sender: tobject);beginif closegetkeyhook then /showmessage(结束记录.);show.caption:=结束记录.;end; procedure tform1.captureclick(sender: tobject);begin/ if opengetkeyhook(self.handle,messageid) then showmessage(开始记录.); if opengetkeyhook(form1.handle,messageid) then/showmessage(开始记录.);show.caption:=开始记录.;num := 0;end; procedure tform1.wndproc(var message: tmessage);var x,y:integer;beginif message.msg = messageid thenbegin/ panel1.capt