PS/2 Mouse

← →
Dr.Den. (2002-03-17 14:09) [0]

Есть проблемка - воруют мыши в нашем клубе, хочу написать прогу которая бы проверяла присутствие оной раз в 5 секунд...
ПОМОГИТЕ!!! Хочу дать в морду этим гадам...

И еще одна просьба - разжуйте для калеки... я Delphi только в руки взял.
Зарание благодарю!

P.S.: Советы в духе "Прибей ее гвоздем к столу" или "привяжи колокольчик к ее разьему" не принимаются.

← →
Song (2002-03-17 16:24) [1]

Интересный Вы Dr Den, "не принимаются". На Вашем месте я бы не указывал, а попросил.
Обрабатывайте свойство MousePresent модуля TMouse

← →
SerVS - S (2002-03-17 17:30) [2]

А почему "Советы в духе "Прибей ее гвоздем к столу"" не принимаються? У нас тоже воровали, метал.скоба и два шурупа, где-то посредине провода, и уже полгода - все крысы на месте.

← →
Anatoly Podgoretsky (2002-03-17 17:46) [3]

И пять секунд достаточный интервал, что бы добежать до канадской границы

← →
Dr.Den. (2002-03-20 21:08) [4]

Здравствуйте многоуважаемые знатоки непонятно чего... а в особенности Song.

Имея кривые руки, забитый наглухо детским маразмом, пришибленный инет-порнухой мозггггг Я, повторяю "Я" на 2-е сутки кручения в оных руках нашел это свойство этого, как вы сумели выразиться "МОДУЛЯ" "TMouse", хотя мне сдается что это не модуль, а класс. Ну да ладно - все равно нихрена это не работает - нужно обновить оборудование в диспетчере устройств и ТОЛЬКО ТОГДА, повторяю, ТОЛЬКО ТОГДА ето конченное свойство меняет свое значение с "True" на "False".

Вот так, знатоки - помощи от вас никакой, а поприкалываться всякий может.

Если кто с прямыми руками сюда заглянет - нацарапайте пару строчек коду плизззз. А я пивом проставлюсь :)

← →
Song (2002-03-20 23:15) [5]

ok, согласен. Спешил когда писал. Класс TMouse, модуль Control

P.S. По себе других людей не судите пожалуйста!

← →
Song (2002-03-21 09:32) [6]

Пожалуйста сам покапался в TMouse и всё нашлось. Я выдернул нужную ВАМ функцию за пару минут, А ВЫ наверно столько же потратили, чтобы " всех мастеров не знаю чего" обложить во всех смертных грехах: " Имея кривые руки, забитый наглухо детским маразмом, пришибленный инет-порнухой мозггггг". У кого ещё руки кривые..

Уважаемый Dr Den, ответ в конференции - дело сугубо индивидуальное и добровольное, и, если Вы просите будьте повежливей. Иногда даже достаточно идеи, чтобы понять путь к решению какой-либо проблемы, а ждать, чтобы всё сделали за Вас, я думаю, это неуважительно, а ещё и обвинять в этом.

Function MousePresent:Boolean;
Begin
Result:=Bool(GetSystemMetrics(SM_MOUSEPRESENT));
End;

← →
daos (2002-03-21 12:31) [7]

> Song ©
Попробывал

> Function MousePresent:Boolean;
> Begin
> Result:=Bool(GetSystemMetrics(SM_MOUSEPRESENT));
> End
но когда крисю вадерают-все равно говорит что есть

← →
Song (2002-03-21 13:07) [8]

У меня есть подозрение, что если Вы крысу выдернули в hot mode, то данное свойство поменяется только после перезагрузки... Крысу, если она не USBб вообще нельзя выдёргивать на ходу. Но, конечно, воришкам это не указ...

← →
OlegatoR (2002-03-21 15:30) [9]

> ...присутствие оной раз в 5 секунд...

> ...данное свойство поменяется только после перезагрузки...

Значит необходимо перезагружать комп каждые 5 сек и после проверять её наличие.

:)

← →
drpass (2002-03-21 16:32) [10]

Интересно, как это можно своровать мышь? Или вы детишек садите за машины, а сами уходите на часок-другой? Если клуб маленький, то вполне можно голову поворачивать, смотреть на тот комп, из-за которого выходит геймер. А если клуб большой, то напомни руководству, что в штате не помешает пара охранников. Если пожадничают, то сворованные мыши - вполне справедливое наказание за жадность

← →
Pat (2002-03-21 19:14) [11]

Интересно, как у Вас порты еще не погорели...мой знакомый вытащил PS/2 мышь, пришлось ставить другую на COM.

← →
daos (2002-03-22 05:03) [12]

> Song ©

Да. Ну я так идумал.

> Pat ©
ну у нас в институте еше не один не погорел, бывает токмо винда виснит, но С+А+D решает все проблемы

← →
Dr.Den. (2002-03-23 14:50) [13]

Здравствуйте уважаемые мастера!

Должен сказать что если вы внимательно смотрели мою мессагу за 20.03.02 то смею заметить что моя фраза "Имея кривые руки, забитый наглухо детским маразмом, пришибленный инет-порнухой мозггггг Я" - была обо мне, поскольку я достаточно самокритичен. К Вам это к стожалению не относится.

Итоги подведем:
здесь я буду писать чьи-то глупые фразы (лень имена выискивать, это вы сможете сделать и сами проглянув конференцию выше :) и отвечать на них. Прошу прощенья что сделать это я могу только сейчас - занят был :-/.
1)

Song ©: Крысу, если она не USBб вообще нельзя выдёргивать на ходу.
ps|2 мышь можно дергать смело, если она сертифицирована, делал это массу раз и ни разу ничего не сгорело.

2)

OlegatoR:
> ...присутствие оной раз в 5 секунд...
> ...данное свойство поменяется только после перезагрузки...
Значит необходимо перезагружать комп каждые 5 сек и после проверять её наличие.

Уважаемый OlegatoR! Вы меня неправильно цитировали, если вообще меня :) Я не говорил о перезагрузке, я говорил об обновлении списка устройств в диспетчере устройств

Желаю всем удачи. пишите.

С уважением Dr. Den.

← →
Mihold (2002-03-25 19:35) [14]

Уважаемый Дохтер!!!!

Не парьте людям мозги, а опустите системные блоки под стол, так проще будет.
Да, и как с таким мозгом вобще не пришла мысль поставить компы мордой к стене, чтоб народ не напрягался, и брал крис в качестве сувениров ;)))
Мне кажется, что человека залезающего под стол достаточно легко заметить, а шланг перегрызать смысла нет. :)))

С наилучшими пожеланиями, Ваш друг и сотоварисчь Mihold

← →
Malder (2002-03-26 00:32) [15]

Да ну вас всех в одно место. Давайте обсуждать поставленную проблему, а не бодягу разводить как предохранить мышь от воровства.
Мне самому интересно, можно ли понять отсутствие мыши. Ведь существует же между ними что-то типа Ping"а. То есть, послав мышке привет, нужно надеяться получить ответ. Эта операция точно осуществляется перез загрузкой винды. А как дальше это повторить ?

PS/2 Mouse Найти похожие ветки