Desactiver clic droit sous internet explorer [Résolu]

Signaler
Messages postés
50
Date d'inscription
dimanche 1 juin 2003
Statut
Membre
Dernière intervention
31 août 2011
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Bonjour, comment faire pour desactiver le clic droit d'internet explorer , sous un Twebrowser ???
d'avance merci.

1 réponse

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
si j'ai pas fait d'erreur en recopiant le code de mon programme :

var
  HookID : THandle;
  DisableRButton : boolean = true;

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 DisableRButton and ((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);
end;

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