Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Anatoly Podgoretsky ©   (2004-09-05 11:27) [10]

Fay ©   (03.09.04 17:25) [7]
А раз есть то не стоит и волноваться :-)


 
DeadMeat ©   (2004-09-05 11:43) [11]

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

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


 
ПЛОВ ©   (2004-09-05 13:10) [12]

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


 
GuAV ©   (2004-09-05 13:44) [13]

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



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.03 c
1-1096127610
Fagot
2004-09-25 19:53
2004.10.10
REG_BINARY


14-1095708897
iZEN
2004-09-20 23:34
2004.10.10
Первый взгляд на Java Паскаль-программиста


1-1096303312
Pine
2004-09-27 20:41
2004.10.10
Можно ли увеличить скорость обработки принтером из отчета QReport


4-1094166439
qraj
2004-09-03 03:07
2004.10.10
InsertMenu


3-1095060867
Роман Снегирев
2004-09-13 11:34
2004.10.10
Разрыв коннекта