Detect Mouse

[eng70640]

Is it possible to detect if the mouse is disabled?

[jim mcnamara]

Try

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long 

Const SM_MOUSEPRESENT = 19
Const SM_CMOUSEBUTTONS = 43

Sub MouseCheck()
     Dim NumButtons as Long
     Dim IsMouse as Boolean
     IsMouse = ( GetSystemMetrics(SM_MOUSEPRESENT) > 0)
     If IsMouse then
         NumButtons = GetSystemMetrics(SM_CMOUSEBUTTONS)
         If NumButtons > 0 then 
               Print "Mouse buttons = ";NumButtons
         Else
               Print "Mouse disabled"
         End If
     Else
         Print "No Mouse installed"
     End If

End Sub