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

Вниз

Как отключить клавиатуру и мышку?   Найти похожие ветки 

 
metakon   (2002-01-12 03:03) [0]

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

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


 
Dimaond Cat ©   (2002-01-14 01:27) [1]

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

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


 
Pat ©   (2002-01-15 04:11) [2]

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


 
Renard ©   (2002-01-15 07:39) [3]

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


 
XM-AD ©   (2002-01-15 15:28) [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 23:11) [5]

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


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

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


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

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



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

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

Наверх




Память: 0.48 MB
Время: 0.022 c
14-43154
fliz
2002-01-30 13:10
2002.03.14
2 Merlin : заметил ОЧЕПЯТКУ на этой странице (причем давно...)


14-43143
Vad
2002-01-27 15:17
2002.03.14
NIC Merlin


1-43089
amputator
2002-02-27 20:36
2002.03.14
Работа с компонентами


1-43030
Surprising
2002-02-11 10:13
2002.03.14
Delphi&Excel


3-42949
Baks
2002-01-21 21:15
2002.03.14
ошибка: Тable lavel changed