Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Апр

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

Posted by micher under Delphi

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

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;

тема на форуме