我写的mousehook为什么只在自己程序理有效?(300分)

cAkk · 2000-03-11

目的是要捕获鼠标在屏幕上所在的窗口句柄,先DLL和form都自定义一个消息, 然后安装Hook时,把form的句柄传过去,当DLL捕获鼠标消息时,向该句柄发送 自定义消息,鼠标所在窗口句柄放在wParam里面: DLL如下: ================= library capwnd; uses   SysUtils, Classes,windows,messages; var   hNextHookProc: HHook;   procSaveExit: Pointer;   receiver,msg_id:integer; const STR_MSGMOUSEPOS

char='WM_MOUSEPOS'; function MousePosHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var h:hwnd; begin   if iCode &lt; 0 then     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam)   else   begin     if wParam = WM_MOUSEMOVE then     begin       h:=windowfrompoint(PMouseHookStruct(lParam).pt);       if h&lt;&gt;0 then postmessage(receiver,msg_id,PMouseHookStruct(lParam).hwnd,0);     end;     Result := 0;   end; end; function EnableMouseHook(hld:hwnd): BOOL; export; begin   Result := False;   receiver:=hld;   if hNextHookProc &lt;&gt; 0 then Exit;   hNextHookProc := SetWindowsHookEx(WH_MOUSE, MousePosHookHandler,HInstance, 0);   Result :=hNextHookProc &lt;&gt; 0 ; end; function DisableMouseHook: BOOL; export; begin   if hNextHookProc &lt;&gt; 0 then   begin     UnhookWindowshookEx(hNextHookProc);     hNextHookProc := 0;   end;   Result := hNextHookProc = 0; end; procedure MouseHookExit; begin   if hNextHookProc &lt;&gt; 0 then DisableMouseHook;   ExitProc := procSaveExit; end; procedure IntoDll; stdcall; begin   msg_id:=RegisterWindowMessage(STR_MSGMOUSEPOS);   receiver:=0; end; exports   EnableMouseHook,   DisableMouseHook; begin   Intodll;   hNextHookProc := 0;   procSaveExit := ExitProc;   ExitProc := @MouseHookExit; end. form如下: ========== unit main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure WndProc(var Mess: TMessage); override;   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   msg_id:integer; const STR_MSGMOUSEPOS

char='WM_MOUSEPOS'; implementation function EnableMouseHook(hld:hwnd): BOOL; external 'capwnd.DLL'; function DisableMouseHook: BOOL; external 'capwnd.DLL'; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin  msg_id:=RegisterWindowMessage(STR_MSGMOUSEPOS);  EnableMouseHook(handle); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   DisableMouseHook; end; procedure TForm1.WndProc(var Mess: TMessage); begin   if (mess.msg=msg_id) then      caption:=inttostr(mess.WParam);    inherited; end; end.

popeye · 2000-03-11

listn

sunstone · 2000-03-11

>>if wParam = WM_MOUSEMOVE then 这样不行,用wm_mousemove消息,鼠标移动,不是产生许多许多消息了!!!

沈前卫 · 2000-03-11

cAkk:   赶快感谢o*o与hubdog吧，我是更局他们的提示改写的。 library capwnd; uses   SysUtils,   Classes,   windows,   messages; type TCommonData = record        HookID:HHook;        CallBackHandle:HWnd;      end; var   hNextHookProc: HHook;   procSaveExit: Pointer;   receiver,msg_id:integer; var  HMapFile:THandle;      CommonData:^TCommonData; const STR_MSGMOUSEPOS

char='WM_MOUSEPOS'; function MousePosHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var h:hwnd; begin   if iCode < 0 then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);   end   else   begin     if wParam = WM_MOUSEMOVE then     begin       h:=windowfrompoint(PMouseHookStruct(lParam).pt);       if h<>0 then postmessage(CommonData.CallBackHandle,msg_id,PMouseHookStruct(lParam).hwnd,0);     end;     Result := 0;   end; end; function EnableMouseHook(hld:hwnd): BOOL; export; begin   Result := False;   CommonData.CallBackHandle:=hld;   if hNextHookProc <> 0 then Exit;   hNextHookProc := SetWindowsHookEx(WH_MOUSE, MousePosHookHandler,Hinstance, 0);   Result :=hNextHookProc <> 0 ; end; function DisableMouseHook: BOOL; export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc);     hNextHookProc := 0;   end;   Result := hNextHookProc = 0; end; procedure MouseHookExit; begin   if hNextHookProc <> 0 then DisableMouseHook;   ExitProc := procSaveExit; end; procedure MapCommonData; var FirstCall: Boolean; begin   HMapFile:=OpenFileMapping(FILE_MAP_WRITE, False, 'sjhdfasdfasdfasd');   FirstCall:=(HMapFile = 0);   if FirstCall then     HMapFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TCommonData),'sjhdfasdfasdfasd');   CommonData:= MapViewOfFile(HMapFile, FILE_MAP_WRITE, 0, 0, 0);   if FirstCall then FillChar(CommonData^, SizeOf(TCommonData), 0); end; procedure IntoDll; stdcall; begin   msg_id:= RegisterWindowMessage(STR_MSGMOUSEPOS);   receiver:=0; end; exports   EnableMouseHook,   DisableMouseHook; begin   Intodll;   MapCommonData;   hNextHookProc := 0;   procSaveExit := ExitProc;   ExitProc := @MouseHookExit; end.

Another_eYes · 2000-03-11

>>      if h<>0 then postmessage(receiver,msg_id,PMouseHookStruct(lParam).hwnd,0); PMouseHookStruct(lParam).hwnd一定指向h吗? 也许接收这个消息的永远是当前窗口(setcapture了?)

沈前卫 · 2000-03-11

忘了说明，我已经在NT4+SP6下测试通过了。 BTW:   cAkk,你之所以不正确，是因为没留意以前的类似问题。呵呵。我又得 300分  {B-)

cAkk · 2000-03-11

>>PMouseHookStruct(lParam).hwnd一定指向h吗? >>也许接收这个消息的永远是当前窗口(setcapture了?) 我没有setcapture呀! 而且win32 api里面是这么说的:指向应该接受 该消息的窗口呀! 前卫: 你改了什么地方? 为什么这么改? 拜托解释一下. 代码太长,我实在       懒的去比较改动的地方.

沈前卫 · 2000-03-11

就是将receiver放到共享内存中. type TCommonData = record        HookID:HHook;        CallBackHandle:HWnd;      end; var   hNextHookProc: HHook;   procSaveExit: Pointer;   receiver,msg_id:integer; var  HMapFile:THandle;      CommonData:^TCommonData;       if h《》0 then postmessage(CommonData.CallBackHandle,msg_id,PMouseHookStruct(lParam).hwnd,0);     procedure MapCommonData; var FirstCall: Boolean; begin   HMapFile:=OpenFileMapping(FILE_MAP_WRITE, False, 'sjhdfasdfasdfasd');   FirstCall:=(HMapFile = 0);   if FirstCall then     HMapFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TCommonData),'sjhdfasdfasdfasd');   CommonData:= MapViewOfFile(HMapFile, FILE_MAP_WRITE, 0, 0, 0);   if FirstCall then FillChar(CommonData^, SizeOf(TCommonData), 0); end; begin   Intodll;  MapCommonData;     hNextHookProc := 0;   procSaveExit := ExitProc;   ExitProc := @MouseHookExit; end

Jams · 2000-03-11

>>

cAkk · 2000-03-11

eyes: 即使我把       if h<>0 then postmessage(receiver,msg_id,PMouseHookStruct(lParam).hwnd,0);       改成:       if h<>0 then postmessage(receiver,msg_id,h,0);       也不成.  :-(

沈前卫 · 2000-03-11

我想着就是与Win3.1下DLL使用的不同吧，Win32的DLL的数据对不同的进程豆油不同 的拷贝！

hubdog · 2000-03-11

好长的代码，我都眼晕了

to cAkk:   如果你只是要得到鼠标下的窗口的句柄的话 用一个TTimer,在ontimer里 begin   getcursorpos(apoint);   h:=windowfrompoint(apoint); end; 这多省事啊?

cAkk · 2000-03-11

前卫: 为什么要放到mapfile里面? 难道不能直接传递hwnd?      对了!是不是因为这个hwnd传到DLL里面就没有意义了,因为不在一个地址空间?   是不是呀? 你说呀1

cAkk · 2000-03-11

hubdog: 我原先就是你说的那样做的,现在我也想不起来为什么非要用hook了.

好像是有原因的,但是实在想不起来了...%^$@#$^*( 前卫:我好像明白了.

Pipi. · 2000-03-11

hwnd是全局的

hubdog · 2000-03-12

hehe,是因为PMouseHookStruct分配的内存离开dll后就会被释放掉 所以必须把pmousehookstruct里的东西放到共享内存中

cAkk · 2000-03-12

>>hwnd是全局的 那为什么我原先的不行? 我想知道原来的代码错在什么地方?

沈前卫 · 2000-03-12

To Hubdog:   不是将pmousehookstruct放到共享内存中,是把接受的HWND的Handle放到共享内存

Pipi. · 2000-03-12

hwnd是全局的，但是放hwnd数值的地方不是全局的

cAkk · 2000-03-12

>>因为PMouseHookStruct分配的内存离开dll后就会被释放掉 那如果我改用sendmessage是不是就可以呢? sendmessage会等待消息被处理的.

我写的mousehook为什么只在自己程序理有效?(300分)

cAkk

Unregistered / Unconfirmed

popeye

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads