Проверка Мыши На Существование

← →
maxXP (2004-09-03 16:25) [0]

Здраствуйте мастера. Вопрос такой как можно определить вставленна ли мышь в пс/2 или нет, а если её вытащили, то произвести действие(скажем вой сирены).

А нужно это, чтобы ушлые студенты не "прихватизировали" новенькие оптические мышки.

P.S.Прикрутить провод к столу нельзя, столы жалко :))

← →
ssk © (2004-09-03 16:28) [1]

вот выдрал из какого-то фака

Установлена ли на его компьютере мышка (Mouse) и сколько у нее кнопок. (Не забудьте добавить модуль "ShellAPI" в список uses ) Функция MouseExist : function MouseExist : boolean; begin if (GetSystemMetrics(SM_MOUSEPRESENT) <> 0) then Result := True else Result := False; end; {MouseExist} Эта функция проверяет - инсталлирована ли мышка в вашей системе, она возвращает TRUE , если мышка присутствует или FALSE, в противном случае. Функция MouseButtonsCount: function MouseButtonsCount : integer; begin Result := GetSystemMetrics(SM_CMOUSEBUTTONS); end; {MouseButtonsCount} Эта функция возвращает количество доступных кнопок мыши. Если мышка недоступна, то функция возвращает значение 0 (ноль). Пример использования: Протестируйте данные функции: 1. Добавьте Кнопку (TButton) и Метку (TLabel) к основной форме (TForm), щелкните на кнопке и добавьте следующий код к ее событию "OnClick" : begin if (MouseExist) then Label1.Caption := "Мышка инсталлирована с " + IntToStr(MouseButtonsCount) + " доступными кнопками ..." else Label1.Caption := "Мышка не инсталлирована ..."; end; 2. Запустите приложение (нажав F9) и щелкните на кнопке. Заголовок метки отобразит сообщение, что мышка инсталлирована и имеет столько-то кнопок или (в противном случае) , что мышка не инсталлирована.

← →
clickmaker © (2004-09-03 16:30) [2]

Зафигачь мышинный провод прямо в корпус без разьема

← →
GuAV © (2004-09-03 16:33) [3]

> Зафигачь мышинный провод прямо в корпус без разьема

А я с кусачками прийду, и потом я и так оторвать и перегрызть могу :)

← →
clickmaker © (2004-09-03 16:35) [4]

> [1] ssk © (03.09.04 16:28)

А ты попробуй вызови эту функцию, а потом вынь мышь и еще раз вызови

← →
ssk © (2004-09-03 16:50) [5]

>clickmaker

а что будет? скажи, а то мне уже ничего не хочется делать под конец рабочего дня. помнится я пробовал это делать, мышь находится. но чтоб вот так... смык-смык... не пробовал :-)

← →
clickmaker © (2004-09-03 16:55) [6]

> [5] ssk © (03.09.04 16:50)

Эта функция проверяет наличие рабочего драйвера мыши, а воткнут или нет проводок - ей глубоко фиолетово

← →
Fay © (2004-09-03 17:25) [7]

Народ, не парьтесь. Я проверил - мышь существует.

← →
Agent13 © (2004-09-03 17:31) [8]

maxXP, не парься. Такой вопрос уже поднимался, и насколько я помню, пришли к выводу, что лучший способ - поставить на выходе амбала. Поскольку стопроцентного способа определить наличие мыши вроде как и не существует.

← →
maxXP (2004-09-05 00:20) [9]

Амбала нет -есть тока новые мышки:)

Сделать как в магазинах с одеждой...
Встроить в мыши датчики...

---
...Death Is Only The Begining...

А пошерстить немного Сеть конечно в лом... Встречал я (и не раз) всяких "охранников" девайса (для клубов в первую очередь), они и определят есть мышь (клавиатура, процессор :) или его стянули шизанутые на Квейке детишки), и сирену включат, и вызовут национальную гвардию при поддержке стратегической авиации :) Правда бесплатного такого софта не видел, так что или платите деньги или ... сами знаете что :)))

А ведь досовский драйвер от ms реализует сабж, более того определяет COM или PS/2

Проверка Мыши На Существование Найти похожие ветки