Пытаюсь заблокировать правую кнопку мыши, глобальным хуком, но при отработке программы правая кнопка начинает действовать как постоянно нажатая левая и при этом, сама левая кнопка перестает отвечать вообще. Что не так в коде?
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | function Mouse_Hooks(code: integer ; wParam: longint ; lParam: longint )
: longint ; stdcall;
begin
if code = HC_ACTION then
begin
if wParam = WM_RBUTTONUP then
result := - 1
else
result := CallNextHookEx(Mouse_SysHook, code, wParam, lParam);
end
else
result := CallNextHookEx(Mouse_SysHook, code, wParam, lParam);
end ;
|
Вопрос снят, решение найдено:
Код:
1 | if (wParam = WM_RBUTTONUP) or (wParam = WM_RBUTTONDOWN) then
|