Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как заблокировать клавиатуру

Автор: company05 3.5.2011, 16:48

Доброе времени суток! Как можно заблокировать клавиатуру?

Автор: Snowy 3.5.2011, 17:07

BlockInput
А вообще нужно давать по рукам за такие мысли
Комп не ваш. Юзер просил чего-то ему блокировать?

Автор: Frees 3.5.2011, 17:17

CoolHacker?

Озвучь зачем тебе это.

Автор: company05 3.5.2011, 17:18

BlockInput не подходит, она не идет на windows 7

Добавлено через 2 минуты и 8 секунд
Мне нужно для своих тестов на работе. Учащиеся чтоб не имели доступ

Автор: DarkProg 3.5.2011, 17:21

Цитата(company05 @ 3.5.2011, 18:18

)

BlockInput не подходит, она не идет на windows 7

Замечательно идёт если программа запущена под админкой.

Цитата(Snowy @ 3.5.2011, 18:07

)

Юзер просил чего-то ему блокировать?

Бывают ситуации когда надо сделать так чтобы в момент каких-то действий юзер ничего не смог испортить, я так делал в паре программ, но это не всегда помогает - при определённых манипуляциях пользователь всё же способен что-то упороть...

Автор: Snowy 3.5.2011, 18:23

Покажи модальное окошко - это заблокирует твоё приложение, не трогая остальную систему.
Если уж так охота блокировать всё, то лучше использовать вариант

Код

LockWorkStation();

Автор: DarkProg 3.5.2011, 19:52

Цитата(Snowy @ 3.5.2011, 19:23

)

Покажи модальное окошко - это заблокирует твоё приложение, не трогая остальную систему.

Не канает, если в момент когда пользователь ничего не делает нужно выполнить програмно клик мышью.

P.S. кажется я как-то топик создавал, где описывал проблему с перетаскиванием объектов, собственно решением тогда стало делать именно программный клик, а модальное окошко этого сделать не даст.

Автор: Frees 3.5.2011, 20:04

Цитата(DarkProg @ 3.5.2011, 22:52

)

Не канает, если в момент когда пользователь ничего не делает нужно выполнить програмно клик мышью.

Цитата(DarkProg @ 3.5.2011, 20:21

)

Бывают ситуации когда надо сделать так чтобы в момент каких-то действий юзер ничего не смог испортить

Набор костылей!

Автор: northener 4.5.2011, 01:48

Цитата(DarkProg @ 3.5.2011, 17:21

)

Не бывает таких ситуаций!
Бывают "кривые руки".

Автор: bems 4.5.2011, 02:22

для CBT имхо всё же бывает нужно

Автор: Galus 5.5.2011, 20:01

На событие OnKeyDown формы:

Код


procedure Form1.KeyPress(Sender: TObject; var Key: Word);
begin
  Key := #0;
end;