Hoot 钩子的安装与卸载

function EnableMouseHook(Hwnd:THandle):Boolean; stdcall; export; 
begin 
if hHk = 0 then //为了安全，必须判断一下再设置钩子。 
Begin 
hHk := SetWindowsHookEx(WH_MOUSE,@MouseHookProc,Hinstance,0);  //安装钩子函数；
hHandle:=Hwnd; //从主程序传递过来的需要拦截的窗口句柄 
Result := True; 
end 
else 
Result := False; 
end; 

function DisableMouseHook:Boolean; stdcall; export; 
begin 
if hHk <> 0 then //如果有钩子就卸掉他。 
begin 
UnHookWindowsHookEx(hHk);  //卸载钩子函数；
hHk := 0; 
Result := True; 
end 
else 
Result := False; 
end; 
end