局部钩子能影响其它软件????
var
hNextHookProc: HHook;
function mouseHookHandler(iCode: Integer;
wParam: WPARAM;
lParam: LPARAM): LRESULT; stdcall;
begin
Result := 0;
if iCode < 0 then
begin
Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);
Exit;
end;
if wParam = wm_rbuttondown then
begin
Result := 1;
end;
end;
function EnableHotKeyHook: BOOL; export;
begin
Result := False;
if hNextHookProc <> 0 then Exit;
hNextHookProc := SetWindowsHookEx(WH_mouse,
mouseHookHandler,
HInstance,
0);
Result := hNextHookProc <> 0;
end;
procedure TfrmAbout.FormCreate(Sender: TObject);
begin
enablehotkeyhook;
end;
这样一个钩子,程序启动后发现记事本、outlook等其它软件中的鼠标右键也被屏蔽掉了,这又不是全局钩子,不懂这是怎么回事。