function MouseHookHandler(iCode: Integer;<br> wParam: WPARAM;<br> lParam: LPARAM): LRESULT; stdcall; export;<br>begin<br> Result := 0;<br> If iCode < 0 Then<br> begin<br> Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);<br> Exit;<br> end;<br> if (wParam=WM_RBUTTONDOWN)or(wParam=WM_RBUTTONUP)then<br> begin<br> MessageBeep(0);<br> Result := -1;<br> end;<br>end;<br>我只贴了这关键部分,使鼠标右键失效。