Вниз
Скачать: CL | DM;

Клава   Найти похожие ветки 

← →
Nika123 ©   (2002-10-11 11:15) [0]

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


← →
Song ©   (2002-10-11 13:39) [1]

Хуком.


← →
nick_vstu ©   (2002-10-11 14:38) [2]


> Song ©


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


← →
Song ©   (2002-10-11 14:48) [3]

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


← →
Nika123 ©   (2002-10-11 15:13) [4]

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


← →
Song ©   (2002-10-11 16:38) [5]

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


← →
Геннадий   (2002-10-12 22:11) [6]

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



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;



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


← →
3asys   (2002-10-21 13:04) [7]

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

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


← →
Song ©   (2002-10-21 13:29) [8]

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
3-74579
cutter-pro
2002-12-04 16:24
2002.12.23
Delphi и Excel в одну постель???


14-74900
vopros
2002-12-03 17:15
2002.12.23
Как вы расслабляетесь вечером, после работы?


1-74834
vilfred
2002-12-10 16:49
2002.12.23
с неимоверной силой лезут 255 в данные


3-74612
Lnstr
2002-12-04 17:31
2002.12.23
Как прочитать Blob и разобрать побайтно


14-74891
Igorian
2002-12-04 12:07
2002.12.23
Функция представления дробного числа прописью




   Наверх