Feedback

Prüfen ob Maus vorhanden ist

Sprache: VB

Siehe Titel
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
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