为什么我的鼠标HOOK始终无法进行全局的捕捉呢？(100分)

sowen · 2002-05-15

我的DLL里其实很简单 一个 StartHook;export; 调用 myHook := SetWindowsHookEx(WH_MOUSE,myHookProc,hInstance,0); 然后 myHookProc 里是如下： function myHookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall; var   X, Y : Integer; begin result:=0; if (wParam = WM_LBUTTONDOWN) or (wParam=WM_NCLBUTTONDOWN) then begin   X := PMouseHookStruct(lParam).pt.X;   Y := PMouseHookStruct(lParam).pt.Y;   log('Stop Hook at' + inttostr(X) + ';' + inttostr(Y));   UnhookWindowsHookEx(myHook);   exit; end; if (wParam = WM_NCMouseMove) or (wParam=WM_MOUSEMOVE) then begin   X := PMouseHookStruct(lParam).pt.X;   Y := PMouseHookStruct(lParam).pt.Y;   log(inttostr(X) + ';' + inttostr(Y)); end; result := CallNextHookEx(myHook, iCode, wParam, lParam); end; 目的是让用户 starthook 之后，移动鼠标到任意一点点击鼠标左键后得到座标 可是我怎么也无法实现，经过LOG分析，鼠标移出调用 starthook 函数的窗体就没有记录了。 我到底做错了什么呢？

lorderic · 2002-05-15

問題可能在於你Log的寫法; 因為如果為Global的Hook,當由其它進程的消息處理時, 是將 你指定的dll載入到該進程中, 再執行其中的Code; 所以, 第一, 你無法在 Hook procedure 中處理釋放的Hook procedure; 因為如果在其它進程執行時, myHook變量值會是0, 因為跟 本不是在該進程中去設定Hook; 如果要釋放的話, 要以跨行程的機制通知設定Hook的進程 才可以釋放; 至於Log應該是有用的, 要看你Log函數的寫法! 不過要注意的全局變量的使用 因為不同進程中, 會有不同的全局變量, 你可以將Log函數再貼出, 看看問題在那裏

little_mike · 2002-05-15

原来楼上的兄弟已经抢先了!我没有更新网页,望见谅!

sowen · 2002-05-15

事实上，我有取消用 LOG，而采用 sendmessage 往触发hook的窗体发送座标，而且是成功的，但鼠标一旦离开那个窗体就立刻失效 不过可能是因为 WndProc 是只能捕获自身窗体的消息吧 如果程序本身是没有问题，我怎么让鼠标移动出窗体后还能让触发窗体得到鼠标当时座标呢？ 我原来的LOG也非常简单 procedure log(app:string); var   lFile:TextFile;   l,fn:string; begin   fn:='e:/Log.txt';   Assign(lFile,fn);   //rewrite(lFile);   append(lFile);   l:=DateTimeToStr(Now) + ':' + app;   Writeln(lFile,l);   closeFile(lFile); end;

little_mike · 2002-05-15

在鼠标移动到你的窗口之外的时候,同样可以捕捉到鼠标事件啊,我把鼠标移动的事件处理也加进来 把,请看上边,我已经修改了.

little_mike · 2002-05-15

你编的程序基本上没有什么问题,我仔细研究了你的程序,我最大的疑点就是,你的log()函数,可能覆盖了以前的内容. 另外为了安全,最好在用事件之前,先判断一下icode;如果小于0;就不允许做处理就返回. 下面是我仿造你的库改动了一下.目的是做个示范:记得要推出程序的时候要调用:unhook过程; unit udll; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; var  myhook:Thandle; procedure starthook;stdcall;export; procedure unhook;stdcall;export; function myHookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall; procedure log(ss:string); implementation procedure starthook;stdcall; begin myhook:=SetWindowsHookEx(WH_MOUSE,myHookProc,hInstance,0); end; function myHookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall; var   X, Y : Integer; begin result:=0; if iCode<0 then //为了hook的安全此处应该判断...  begin   result := CallNextHookEx(myHook, iCode, wParam, lParam);   exit;  end; if (wParam = WM_LBUTTONDOWN) or (wParam=WM_NCLBUTTONDOWN) then begin   X := PMouseHookStruct(lParam).pt.X;   Y := PMouseHookStruct(lParam).pt.Y;   log(#13+#10+'leftbutton click at' +'['+ inttostr(X) + ';' + inttostr(Y)+']'); end; if (wParam = WM_NCMouseMove) or (wParam=WM_MOUSEMOVE) then begin   X := PMouseHookStruct(lParam).pt.X;   Y := PMouseHookStruct(lParam).pt.Y;   log('  ['+inttostr(X) + ';' + inttostr(Y)+']'); end;//一样的嘛,怎么会捕捉不到呢. result := CallNextHookEx(myHook, iCode, wParam, lParam); end; procedure unhook;stdcall;export; begin  unhookwindowshookex(myhook); end; procedure log(ss:string); var  file1:Tmemorystream; begin  try   file1:=tmemorystream.Create;   try   file1.LoadFromFile('e:/delphi/log.txt');   except   end;   file1.Position:=file1.size;   file1.Write(ss[1],length(ss));   file1.SaveToFile('e:/delphi/log.txt');  finally   file1.free;  end; end; end. library prjdll; uses   udll in 'udll.pas'; {$R *.RES} exports  starthook,unhook; begin end.

drank · 2003-01-14

zw84611 · 2003-01-14

给你个全局捕捉的例子吧：http://service.lonetear.com/delphi/dispdoc.asp?id=1300

为什么我的鼠标HOOK始终无法进行全局的捕捉呢？(100分)

sowen

Unregistered / Unconfirmed

lorderic

Unregistered / Unconfirmed

little_mike

Unregistered / Unconfirmed

sowen

Unregistered / Unconfirmed

little_mike

Unregistered / Unconfirmed

little_mike

Unregistered / Unconfirmed

drank

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

Similar threads