Как узнать, существует ли мышь -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.131]

Модераторы: SCINER, B.V.

Как узнать, существует ли мышь

D[u]fa	Сообщ. #1 , 30.03.04, 16:31
Master Профиль · PM Поощрения: 11 Dgm Рейтинг (т): 112	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: Сообщение отредактировано: Andrey_Kun - 07.04.04, 15:49

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0239 ] [ 15 queries used ] [ Generated: 30.11.25, 15:53 GMT ]