Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как отключить клавиатуру и мышку? [D6, Win2k]


metakon ©   (2002-01-12 03:03:00) 

Мне нужно на определенное время отключить клаву и мыш

заранее благодарен..


Pat   (2002-01-16 00:44:00) [1]

>Dimaond Cat
Извини, все заработало...просто стормозил немного....


Dimaond Cat   (2002-01-16 00:19:00) [2]

2 PAT а под какой платформой ты работаешь?


Renard   (2002-01-15 23:11:00) [3]

Увы в win2000 это не работает, а в win98 вроде пашет, спасибо.


XM-AD   (2002-01-15 15:28:00) [4]

Попробуй так:
BlockInput(true);//блокируем мышу и клаву
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);//болт на Ctrl+Alt+Del (и еще Alt+Tab, Win, может еще чего)
{наши действия}
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);//разрешаем волжебную "трехпальцевую"
BlockInput(false);//разблокируем мышу и клаву


Renard   (2002-01-15 07:39:00) [5]

А у меня все работает :), спасибо вот только на SystemParametersInfo (97, Word (False), @sss, 0) ругается, но выполняет, как сделать чтоб не ругалось?


Pat   (2002-01-15 04:11:00) [6]

>Dimaond Cat
У меня на эту процедуру ругается, говорит не знает...что подключать?


Dimaond Cat   (2002-01-14 01:27:00) [7]

Procedure BlockInput(ABlockInput : boolean); stdcall; external "USER32.DLL";

При переданном true клава и мышь отрубается при False врубается
правда это не полное отключение т.к. на CTRL+ALT+DEL есть срабатывание
правда можно использовав
SystemParametersInfo (97, Word (True), @sss, 0)
отключить окно CTRL+ALT+DEL (панели задач)


Наверх

Титульная страница Поиск, карта сайта Написать письмо