Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

PS/2 Mouse [D5, Win2k]

Dr.Den. © (2002-03-17 14:09:00)
Есть проблемка - воруют мыши в нашем клубе, хочу написать прогу которая бы проверяла присутствие онойраз в 5 секунд...
ПОМОГИТЕ!!! Хочу дать в морду этим гадам...

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

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

Malder (2002-03-26 00:32:00) [1]
Да ну вас всех в одно место. Давайте обсуждать поставленную проблему, а не бодягу разводить как предохранить мышь от воровства.
Мне самому интересно, можно ли понять отсутствие мыши. Ведь существует же между ними что-то типа Ping"а. То есть, послав мышке привет, нужно надеяться получить ответ. Эта операция точно осуществляется перез загрузкой винды. А как дальше это повторить ?

Mihold (2002-03-25 19:35:00) [2]
Уважаемый Дохтер!!!!

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

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

Dr.Den. (2002-03-23 14:50:00) [3]
Здравствуйте уважаемые мастера!

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

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

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

2)

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

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

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

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

daos (2002-03-22 05:03:00) [4]

> Song ©

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

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

Pat (2002-03-21 19:14:00) [5]
Интересно, как у Вас порты еще не погорели...мой знакомый вытащил PS/2 мышь, пришлось ставить другую на COM.

drpass (2002-03-21 16:32:00) [6]
Интересно, как это можно своровать мышь? Или вы детишек садите за машины, а сами уходите на часок-другой? Если клуб маленький, то вполне можно голову поворачивать, смотреть на тот комп, из-за которого выходит геймер. А если клуб большой, то напомни руководству, что в штате не помешает пара охранников. Если пожадничают, то сворованные мыши - вполне справедливое наказание за жадность

OlegatoR (2002-03-21 15:30:00) [7]

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

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

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

:)

Song (2002-03-21 13:07:00) [8]
У меня есть подозрение, что если Вы крысу выдернули в hot mode, то данное свойство поменяется только после перезагрузки... Крысу, если она не USBб вообще нельзя выдёргивать на ходу. Но, конечно, воришкам это не указ...

daos (2002-03-21 12:31:00) [9]

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

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

Song (2002-03-21 09:32:00) [10]
Пожалуйста сам покапался в TMouse и всё нашлось. Я выдернул нужную ВАМ функцию за пару минут, А ВЫ наверно столько же потратили, чтобы " всех мастеров не знаю чего" обложить во всех смертных грехах: " Имея кривые руки, забитый наглухо детским маразмом, пришибленный инет-порнухой мозггггг". У кого ещё руки кривые..

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

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

Song (2002-03-20 23:15:00) [11]
ok, согласен. Спешил когда писал. Класс TMouse, модуль Control

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

Dr.Den. (2002-03-20 21:08:00) [12]
Здравствуйте многоуважаемые знатоки непонятно чего... а в особенности Song.

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

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

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

Anatoly Podgoretsky (2002-03-17 17:46:00) [13]
И пять секунд достаточный интервал, что бы добежать до канадской границы

SerVS - S (2002-03-17 17:30:00) [14]
А почему "Советы в духе "Прибей ее гвоздем к столу"" не принимаються? У нас тоже воровали, метал.скоба и два шурупа, где-то посредине провода, и уже полгода - все крысы на месте.

Song (2002-03-17 16:24:00) [15]
Интересный Вы Dr Den, "не принимаются". На Вашем месте я бы не указывал, а попросил.
Обрабатывайте свойство MousePresent модуля TMouse

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »