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
Alte URL:
/snippet/pruefen-ob-maus-vorhanden-ist/349