Главная страница
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.01 c
1-43000
Дмитрий
2002-02-28 12:27
2002.03.14
Перекодировка XML UTF-8->window-1251


7-43195
инкогнито
2001-12-04 16:14
2002.03.14
Как писать .VXD драйвера?


14-43177
Moscower
2002-01-30 15:04
2002.03.14
Найдено продолжение истории Если бы программисты строили дома (если кто помнит)


14-43170
oblom
2002-01-25 01:14
2002.03.14
Глючит HDD


4-43215
davile
2002-01-15 17:33
2002.03.14
Как завершить процесс (через Delphi)