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

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

Клава [D4, D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]


Nika123 ©   (2002-10-11 11:15:00) 

Как заблокировать клавиатуру и мышь в Windows(включая NT,2000,XP).


Song   (2002-10-21 13:29:00) [1]

23asys (21.10.02 13:04)
По-моему я Вам уже говорил, что один из простых и оригинальных способов - это через RegisterHotKey() тем более что в FAQ есть и по-моему как раз для PrintScreen


3asys   (2002-10-21 13:04:00) [2]

>>Геннадий
А как такое-же проделать с PrintScreen ?

С Уважением, 3asys


Геннадий   (2002-10-12 22:11:00) [3]

А ещё вот так можно :)



BlockInput(True)
BlockInput(False)




procedure LockComp;
var
D : Integer;
begin
D:= 0; //1
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1 {0}, @D, 0); // Вырубили ALT-TAB нафиг
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1 {0}, @D, 0); // CTRL-ALT-DEL туда же

BlockInput(True);
end;



procedure UnLockComp;
var
D : Integer;
begin
D:= 1;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @D, 0); // Врубили ALT-TAB
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @D, 0); // CTRL-ALT-DEL

BlockInput(False);
end;



Не знаю как там в разных ОС, но под МЕ работает.


Song   (2002-10-11 16:38:00) [4]

А Вам как надо?


Nika123   (2002-10-11 15:13:00) [5]

Мышка не двигалась, а нажатия клавиш не передавались Windows.


Song   (2002-10-11 14:48:00) [6]

Поподробней в статьях. Ловить WH_MOUSE


nick_vstu   (2002-10-11 14:38:00) [7]


> Song ©


а подробней можно
это надо какое-то сообщение ловить
если да то какое?


Song   (2002-10-11 13:39:00) [8]

Хуком.


Наверх

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