Zjištění počtu tlačítek myši
Založte nový projekt. Na formulář přidejte tlačítko. Ve formuláři deklarujte:
Public Const SM_CMOUSEBUTTONS = 43
Declare Function
GetSystemMetrics Lib "user32" Alias _
"GetSystemMetrics" (ByVal nIndex As Long) As Long
na událost click tlačítka:
Private Sub Command1_Click()
number&=GetSystemMetrics(SM_CMOUSEBUTTONS)
