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
Hoot 钩子的安装与卸载
最新推荐文章于 2023-01-06 15:45:00 发布