retiré le clic droit WebBrower

Bonjour,

Je souhaiterais avec votre aide pouvoir enlever le clic droit dans un TWebBrowser.
Voici mon morceau de code:
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.mon site.fr');
end

Merci à vous tous.

var
  HookID : THandle;

function MouseProc(nCode: integer; wParam, lParam: longint): longint; stdcall;
  function GetClassNameEnh(Handle: Hwnd): string;
  var
    ClassName: PChar;
  begin
    getmem(ClassName, 40);
    windows.GetClassName(Handle, ClassName, 40);
    Result := ClassName;
    Freemem(ClassName);
  end;
var
  P: TPoint;
begin
  if nCode < 0 then
    Result := CallNextHookEx(HookID, nCode, wParam, lParam)
  else
  if (wParam = WM_RBUTTONDOWN) or (wParam = WM_RBUTTONUP) then
  begin
    GetCursorPos(P);
    if Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0 then
      Result := HC_SKIP
    else
      Result := CallNextHookEx(HookID, nCode, wParam, lParam);
  end
  else
    Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // start mouse hook
  HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // end mouse hook
  if HookID <> 0 then UnHookWindowsHookEx(HookID);
end;

Bonjour,

Merci pour vos reponse, mais malheuresement, je debute sous delphi, donc c'est un gros combat pour moi.
J'ai essayer de placer ce morceau de code un peu partout, mais j'arrive à des erreur de compilation.
Voici mes sources, si vous pouvez me dire ou dois-je inclure ce code:

merci beaucoup.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://mon_lien.fr');
end;



end.

Une fois inclu, le code devrais ressembler à ceci:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  HookID : THandle;

implementation

{$R *.dfm}

function MouseProc(nCode: integer; wParam, lParam: longint): longint; stdcall;
  function GetClassNameEnh(Handle: Hwnd): string;
  var
    ClassName: PChar;
  begin
    getmem(ClassName, 40);
    windows.GetClassName(Handle, ClassName, 40);
    Result := ClassName;
    Freemem(ClassName);
  end;
var
  P: TPoint;
begin
  if nCode < 0 then
    Result := CallNextHookEx(HookID, nCode, wParam, lParam)
  else
  if (wParam = WM_RBUTTONDOWN) or (wParam = WM_RBUTTONUP) then
  begin
    GetCursorPos(P);
    if Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0 then
      Result := HC_SKIP
    else
      Result := CallNextHookEx(HookID, nCode, wParam, lParam);
  end
  else
    Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId);
WebBrowser1.Navigate('http://mon_lien.fr');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // end mouse hook
  if HookID <> 0 then UnHookWindowsHookEx(HookID);
end;

end.