Could Not Disable Mouse Right Click

[Grailly Ali]

Global DisableRButton as Boolean
Global oldwndproc as LongPtr

WndProc(Byval lhwnd as LongPtr,Byval Msg as Long,Byval wParam as LongPtr,Byval lparam as LongPtr) as Long

if DisableRButton and ((wParam=WM_RBUTTONDOWN) or (wParam=WM_RBUTTONUP)) then
WndProc = HC_SKIP

End If

Wndproc=CallWindowProcA(lhwnd,Msg,wparam,lparam)

End Function


In Above Code HC_SKIP Is Right ? It Does Not Work To Disable RBUTTONDOWN


if i write : wndproc=false also will lock the form i think


Form_Load

DisableRButton=True

Oldwndproc=SetWindowLongPtrA(Me.hwnd,GWL_WNDPROC,AddressOf WndPro)


Form_Unload

SetWindowLongPtrA Me.hwnd,GWL_WNDPROC,oldwndproc

Continue reading...