Zjištění počtu tlačítek myši

Postup:
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)

Zpět

Autor: The Bozena