Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.014 c
3-74625
dimonf
2002-12-05 14:53
2002.12.23
Статичный DBGrid.


4-75044
Cosmic
2002-11-10 16:45
2002.12.23
Как убрать консоль?


1-74740
orion_st
2002-12-10 16:30
2002.12.23
Проблемы с добавлением объекта в StringList


6-74868
NOE
2002-10-28 15:22
2002.12.23
Время на удаленной машине


1-74635
bambina
2002-12-12 13:12
2002.12.23
TTreeview





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский