Bloquear click derecho

[[seoane]]

Antes de nada estoy de acuerdo con dec y roman, que bloquear el botón derecho del ratón es una medida desproporcionada y poco eficaz, dependiendo del propósito que queramos conseguir. Pero también es verdad que no somos quien para decirte como hacer las cosas, así que si quieres bloquear el botón derecho, podemos intentarlo.

Partimos de la excelente unit de roman para bloquear teclas. Recortamos y pegamos por aquí y por allá y nos quedaría algo como esto:

Código Delphi [-]
unit Hooks;

interface

procedure SetHook;
procedure ReleaseHook;

implementation

uses Windows, Messages;

const
  WH_MOUSE_LL = 14;

var
  Hook: HHook;

function MouseProc(Code: Integer; WParam, LParam: DWORD): HHook; stdcall;
begin
  if Code = HC_ACTION then
  begin
    if (WParam = WM_RBUTTONDOWN) or (WParam = WM_RBUTTONUP) then
    begin
      Result:= 1;
      Exit;
    end;
  end;
  Result := CallNextHookEx(Hook, Code, WParam, LParam);
end;

procedure SetHook;
begin
  Hook := SetWindowsHookEx(WH_MOUSE_LL, @MouseProc, HInstance, 0);
end;

procedure ReleaseHook;
begin
  if Hook <> 0 then UnhookWindowsHookEx(Hook);
end;

initialization
  Hook := 0;

finalization
  ReleaseHook;
end.

De todas formas, ¿que es lo que quieres conseguir?. Posiblemente exista una solucion mejor ...