Test presence myši

Funkce:
Deklarujte:
Private Const SM_CMOUSEBUTTONS = 43

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

Public Function CheckMouse() As Boolean

   If GetSystemMetrics(SM_CMOUSEBUTTONS) > 0 Then
      CheckMouse = True
   Else
      CheckMouse = False
   End If

End Function

Zpět

Autor: The Bozena