Запретить клик правой кнопкой мыши

[demiancz]

Есть форма на ней WebBrowser. Не хочу что бы смотрели исходный код, потому нужно запретить клик правой кнопкой мыши.
Нашел такой пример

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 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;

Но не компилируется из-за ошибки

Incompatible types: 'TFNHookProc' and 'Integer'

В строке

HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());

Похоже что то не нравится в MouseProc
Помогите пожалуйста решить проблему

[dmitriegorovih]

Но не компилируется из-за ошибки

Incompatible types: 'TFNHookProc' and 'Integer'

В строке

HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());

Хм не знаю у меня норм скомпилировалось единственное где у меня ошибка высветилась это

ie_name = 'Internet Explorer_Server';

Попробуйте код в отдельном приложение то, что вы написали на форуме.

[demiancz]

В Delphi7 все работает, а вот в Delphi XE2 выдает эту ошибку.
Помогите пожалуйста. Мне нужно скомпилировать в Delphi XE2.
Проект который создал в Делфи7 попробовал в Делфи ХЕ2 скомпилировать все таже ошибка

E2010 Incompatible types: 'NativeInt' and 'Integer'

в строке

HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());

после
MouseProc

[demiancz]

На другом форуме подсказали решение. Теперь компилируется но правая кнопка при клике по браузеру всеравно работает

function MouseProc(nCode: Integer; wParam : WPARAM; lParam: LPARAM): LRESULT; 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 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;

[Stilet]

Не хочу что бы смотрели исходный код

Во-первых: Это тебя не спасет.
Во-вторых: Я ловил такой же процедурой что ты привел - она вполне рабочая. Единственное "но" какой у тебя браузер. Возможно в новых IE имя класса другое.

[demiancz]

Ну мне надо что бы на разных версиях не работала правая кнопка мыши.
Можно не только для WebBrowser ее отключить а вообще что бы не работал клик на форме?

[Stilet]

На твоей форме???
Или на всех?
Если на всех то хуком.