Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.145.131.238] |
|
Сообщ.
#1
,
|
|
|
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: |