我的钩子左钩右钩就是钩不到，请大伙帮帮忙！！(200分)

叶不归 · 2001-09-05

我想控制一个外部程序，就是我的文档这个窗口，我要在该窗口点击“叉”按钮时， 不让它关闭，而是发出一声beep(0)，做了一个钩子，可是钩不到。     我是用HCBT消息去钩，回调函数有了，都在dll中写了，HHook和Handle都在一个记 录中，都mapfile到共享内存中，查找了以往的贴子好多遍，例子也很多，可是没用！     有一个例子特怪，     1. 当我点击我的程序关闭按钮时，却发出了beep。为什么？     2. 也有人是用mouse钩子，好像可以实现，可是我想能不能用HCBT实现呢？？     3. 有没有哪位做过的，已经实现了的，请相助.... 另外，我明天贴源码出来，请帮忙看看是哪不对了...

我爱飞 · 2001-09-05

listen

叶不归 · 2001-09-06

//dll library Hook; uses   SysUtils,   Classes,   HookProc in 'HookProc.pas'; {$R *.RES} exports   SetHook,   EndHook,   SetHandled; begin   IntoShare; end. //dll proc.pas unit HookProc; interface uses   SysUtils,   Classes,   Windows,   Dialogs,   Messages; function MyCBTHookProc(nCode: Integer; wp: wParam; lp: lParam): LResult; stdcall; procedure SetHook;export; procedure EndHook;export; procedure IntoShare; stdcall;export; procedure SetHandled( H: THandle );stdcall; export; implementation type   TGoData = record     TargetWnd : Hwnd;     ghHook : HHook;   end;   PGoData = ^TGoData; {const   TARGET_WND_TITLE = '我的文档';     } var   GoData : PGoData;   MemFile : THandle; procedure SetHandled( H: THandle );stdcall; export; begin   GoData^.TargetWnd := H;   if GoData^.TargetWnd <> 0 then     MessageBeep(0); end; function MyCBTHookProc(nCode: Integer; wp: wParam; lp: lParam): LResult; stdcall; {const   TargetFocused : Boolean = False;   } begin {  if ( nCode = HCBT_ACTIVATE ) then   begin     GoData^.TargetWnd := FindWindow( nil, PChar( TARGET_WND_TITLE ));     if GoData^.TargetWnd <> 0 then       TargetFocused := True;   end;   Result := CallNextHookEx( GoData^.ghHook, nCode, wP, lP);    }   if ( nCode = HCBT_ACTIVATE ) then   begin  //   MessageBeep(0);     if {(nCode = HCBT_SYSCOMMAND) and} ( PMsg(lp)^.Message = WM_CLOSE) and ( GoData^.TargetWnd = PMsg(lP)^.hwnd ) then     begin       MessageBeep(0);       ShowWindow( GoData^.TargetWnd, SW_SHOWMINIMIZED );     end;   end;   Result := CallNextHookEx( GoData^.ghHook, nCode, wP, lP); end; procedure SetHook;export; begin   GoData^.ghHook := SetWindowsHookEx( WH_CBT, @MyCBTHookProc, hInstance, 0); end; procedure EndHook;export; begin   UnhookWindowsHookEx( GoData^.ghHook ); end; procedure IntoShare; stdcall;export; begin   MemFile := OpenFileMapping( FILE_MAP_WRITE, False, 'JJYY' );   if MemFile = 0 then     MemFile:=CreateFileMapping( $FFFFFFFF, nil,              PAGE_READWRITE, 0, SizeOf( TGoData ), 'JJYY');   GoData := MapViewOfFile( MemFile, FILE_MAP_WRITE, 0, 0, 0 );   if MemFile = 0 then   FillChar( GoData^, SizeOf( TGoData ),0); end; end. //调用 procedure SetHandled( H : THandle ); stdcall; external 'Hook.dll'; procedure SetHook; stdcall; external 'Hook.dll'; procedure EndHook; stdcall; external 'Hook.dll'; procedure TForm1.Button1Click(Sender: TObject); var   H : THandle; begin   H := FindWindow( nil, 'Test' );   if H <> 0 then ShowMessage( 'H<>0' );   SetHandled( H );   SetHook; end; 请高手相助，嫌分不够可再加！！！！！

叶不归 · 2001-09-06

不会吧，高手哪去了？？？？ 怎么没人回答？？？？ 温柔一刀、hubdog、沈前卫、Another_eYes 你们在不在， 以前的回答解决不了问题啊，还有谁懂得的，说一下吧！

Pan Ying · 2001-09-06

SetWindowsHookEx( WH_CBT, @MyCBTHookProc, hInstance, 0); 这句好像不对，第三个参数不应该是hInstance，这样表示这个hook本程序中有效， 好像应使用0或者nil，表示是全局的。

叶不归 · 2001-09-06

To: Pan Ying 我试了一下，把hInstance改为0或GoData^.TargeWnd都不行啊。

叶不归 · 2001-09-06

高手高手你在哪？

Pan Ying · 2001-09-06

注意到有这样一个判断语句GoData^.TargetWnd = PMsg(lP)^.hwnd 好像表示要点击的窗口必须为设置的窗口才行， 去掉此判断再试试。

黑山老妖 · 2001-09-07

叶不归 · 2001-09-10

再没有人回答我要把分收回来了！ 太另人失望了，高手都小气.........

gcq · 2001-09-10

目前不会HOOK

zj1978 · 2001-09-11

function MyCBTHookProc(nCode: Integer; wp: wParam; lp: lParam): LResult; stdcall; begin   begin     if (( PCWPStruct(lp)^.Message = WM_CLOSE) or ( PCWPStruct(lp)^.Message = WM_DESTROY)or ( PCWPStruct(lp)^.Message = WM_QUIT)) and ( GoData^.TargetWnd = PCWPStruct(lP)^.hwnd ) then     begin       MessageBeep(0);       showmessage(inttostr(GoData^.TargetWnd)+'test');       exit;     end;   end;   Result := CallNextHookEx( GoData^.ghHook, nCode, wP, lP); end; procedure SetHook;export; begin   GoData^.ghHook := SetWindowsHookEx( WH_CALLWNDPROC , @MyCBTHookProc,hInstance, 0);   showmessage(inttostr(GoData^.ghHook)); end; 首先要说明的是WH_CBT是不能拦截WM_Close的,用WH_CALLWNDPROC 吧，可以挂到，但是有个问题 没有调用CallNextHookEx( GoData^.ghHook, nCode, wP, lP);为什么该窗口依然被关闭？有没有人知道 to:叶不归, (你用的的HCBT_ACTIVATE,没有消息体,不知道你怎么会这样用!不要完全照抄例子)

叶不归 · 2001-09-12

非常感谢zj1978！！ 问题已解决，你说的问题我没碰到，估计是你在Exit时没有UnHook吧。 好了，问题结束，分是你的。

我的钩子左钩右钩就是钩不到，请大伙帮帮忙！！(200分)

叶不归

Unregistered / Unconfirmed

我爱飞

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

黑山老妖

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

zj1978

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

Similar threads