关于一个钩子,只有几句代码,谁帮我看看那里错了(50分)

WH_DEBUG 钩子<br><br>我没办法让它执行CallNextHooKex<br><br>一但执行CallNextHooKex就所有的程序都会关闭<br><br>谁帮我看看有没有写错<br><br>function hookproc(code:integer; wparam:wparam; lparam:lparam):lresult;stdcall;<br> &nbsp;BEGIN<br> &nbsp;result:=callnexthookex(hookhandle,code,wparam,lparam);<br> end;<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> hookhandle:=setwindowshookex(WH_DEBUG,@hookproc,hinstance,0);<br>end;<br><br>如果把CallNextHooKex注释掉就没事 <br><br>也就是可以执行一次,不可以传递

这样试试<br>function hookproc(code:integer; wparam:wparam; lparam:lparam):lresult;stdcall;<br>begin<br> &nbsp;Result:=0;<br> &nbsp;if code&lt;0 then<br> &nbsp; &nbsp;result:=callnexthookex(hookhandle,code,wparam,lparam);<br>end;

行了,真不出错了.<br><br><br>谢了<br>smokingroom