Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49799&view=findpost&p=327899 Tue, 30 Mar 2004 16:31:47 +0000 Как узнать, существует ли мышь https://forum.sources.ru/index.php?showtopic=49799&view=findpost&p=327899
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
     
    Public Function CheckMouse() As Boolean
       CheckMouse = (GetSystemMetrics(43) > 0)
    End Function
     
    Private Sub Form_Load()
       Me.Caption = CheckMouse
    End Sub :ph34r:
]]> Dufa Работа с мышью