Главная страница
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.007 c
1-43088
MONIKER
2002-02-26 21:17
2002.03.14
TCompressionStream


4-43234
davile
2002-01-15 17:31
2002.03.14
Help!!! Mne with Handle чужого окна плз ||||||| ; ) ||||||


1-43085
UserL
2002-02-14 08:06
2002.03.14
ImageList


3-42924
lel (A)
2002-02-13 10:24
2002.03.14
Oracle, Delphi 3, BDE 4,5 редактор полей , а может что нибудь еще???


1-43014
pusrg
2002-02-28 20:29
2002.03.14
Изначальное масштабирование в QuickReport