How can i disable mouse right clicking event

Question

I need in my project to disallow any body to right click the mouse. Can i disable this event to prevent user of the application from right clicking if yes how can i disable it.

Answer 1

I have code written in Visual Basic doing the same task but i don't know how to transfer those code in java
The following is a code for that:
Option Explicit
'declares
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
'constant
Private Const WH_MOUSE_LL = 14&
Public Const HC_ACTION = 0&
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const VK_RBUTTON = &H2
Private lMShook As Long
Private bHookEnabled As Boolean
'functions which process mouse events
Public Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode = HC_ACTION Then
If (wParam = WM_RBUTTONUP Or wParam = WM_RBUTTONDOWN) Then
MouseProc = 1
Exit Function
End If
End If
MouseProc = CallNextHookEx(lMShook, nCode, wParam, lParam)
End Function
Public Function SetHook()
If lMShook = 0 Then
lMShook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0&)
End If
If lMShook = 0 Then
MsgBox "failed to install hook :" & lMShook & " : " & WH_MOUSE_LL
bHookEnabled = False
Unload Form1
Exit Function
Else
bHookEnabled = True
End If
End Function
Public Function UnSetHook()
If bHookEnabled Then
Call UnhookWindowsHookEx(lMShook)
lMShook = 0
End If
bHookEnabled = False
End Function
Public Function InstalledHook()
MsgBox " installed hook is :" & lMShook
End Function
code for form is below:
Option Explicit
Private Sub Command1_Click()
InstalledHook
End Sub
Private Sub Command2_Click()
Call SetHook
End Sub
Private Sub Command3_Click()
Call UnSetHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnSetHook
End Sub