Prüfen ob Maus vorhanden ist

1
2
3
4
5
6

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Integer) As Integer

Public Function MousePresent() As Boolean
    Dim SM_MOUSEPRESENT As Integer = 19
    Return CBool(GetSystemMetrics(SM_MOUSEPRESENT))
End Function