1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

var
  HookID: THandle;


function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  szClassName: array[0..255] of Char;
const 
  ie_name = 'Internet Explorer_Server';
begin 
  case nCode < 0 of
    True: 
      Result := CallNextHookEx(HookID, nCode, wParam, lParam)
      else 
        case wParam of 
          WM_RBUTTONDOWN,
          WM_RBUTTONUP: 
            begin 
              GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
              if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then 
                Result := HC_SKIP
              else 
                Result := CallNextHookEx(HookID, nCode, wParam, lParam); 
            end
            else 
              Result := CallNextHookEx(HookID, nCode, wParam, lParam);
        end; 
  end;
end;


procedure TFMain.FormDestroy(Sender: TObject);
begin
        if HookID <> 0 then
                UnHookWindowsHookEx(HookID);
end;


procedure TFMain.FormCreate(Sender: TObject);
begin
        HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;