Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Блокирование клавиатуры 
:(
    Опции темы
GaLL
Дата 29.1.2004, 20:42 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered













Подскажите пожалуйста, как блокировать клавиатуру на Delphi.
за ранее спасибо

  Вверх
Pakshin A. S.
Дата 29.1.2004, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



1) Поставить хук (реализацию не знаю)
2)
Блокировка ввода информации:
Код

asm
  push 1
  call BlockInput
end;

Разблокировка:
Код

asm
  push  0
  call BlockInput
end;

PM   Вверх
Pakshin A. S.
  Дата 29.1.2004, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Для полного отключения надо убирать Ctrl+Alt+Del, но это не везде сработает:
Код

  SystemParameterInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); // Выкл.
  SystemParameterInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0); // Вкл.


Это сообщение отредактировал(а) Pakshin A. S. - 29.1.2004, 20:52
PM   Вверх
December
Дата 29.1.2004, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57



Это всё 95/98/Me...


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Полудненко Олег
Дата 29.1.2004, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: 1
Всего: -11



winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клава OFF
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF
PM MAIL   Вверх
Pathfider
Дата 14.7.2004, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 128
Регистрация: 13.7.2004
Где: все там же

Репутация: -1
Всего: 1



Полудненко Олег работает только в Win 95/98/Me в XP, NT не пройдет!!!

--------------------
Trust is a weakness
PM MAIL   Вверх
Guest
Дата 2.8.2004, 15:39 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Цитата(Pakshin @ 29.1.2004, 20:48)
Блокировка ввода информации:
Код

asm
  push 1
  call BlockInput
end;

Разблокировка:
Код

asm
  push  0
  call BlockInput
end;

Я пробую прописывать твой код, но компилятор ругается на BlockInput. Какой модуль для него надо указать?
  Вверх
Pakshin A. S.
Дата 2.8.2004, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Всегда работало в модуле формы, созданном автоматически... sad.gif
Ничего, вроде, не прописывал...
Добавлено @ 18:14
Sorry, забыл само главное!!! wink.gif
Код

procedure BlockInput; external 'user32.dll';

PM   Вверх
Dr.Death
Дата 2.8.2004, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 950
Регистрация: 15.7.2003
Где: Волгоград

Репутация: нет
Всего: 1



Надо просто запретить прерывание от клавы, делается просто на асме, надо посмотреть, найду - выложу.


--------------------
Жизнь коротка, чтобы быть в ней слабым.© Арнольд Шварцнеггер
PM MAIL WWW ICQ   Вверх
Иван Грозный
Дата 5.8.2004, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.7.2004

Репутация: нет
Всего: нет



Мне нужно сделать так, чтобы нельзя было переключиться с моего приложения на другое, а еще лучше: заблокировать клаву (и мышь) на остальных приложениях. Как это сделать?
PM MAIL   Вверх
_hunter
Дата 5.8.2004, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98





--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Иван Грозный
Дата 6.8.2004, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.7.2004

Репутация: нет
Всего: нет



_hunter, ты давно заглядывал на эту тему? Там ни один файл не качается.

Может, кто знает хотябы, как отключить стандартные сочетания клавиш Винды (кроме CAD)?
PM MAIL   Вверх
_hunter
Дата 6.8.2004, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



ну так к Step' у постучись -- глядиш даст ссылку

P.S.
Заглядывал давно smile.gif


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Pakshin A. S.
Дата 6.8.2004, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Под NT-подобных версиях не покатит:
Мой ASM-код или версия Полудненко Олег'а + отключение Alt+Ctrl+Del + отключение (хоть и не обязятельное) Alt+Tab:
Код

SystemParametersinfo(SPI_SETFASTTASKSWITCH, 1 {0 - включение}, 0, 0);

PM   Вверх
Иван Грозный
Дата 9.8.2004, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.7.2004

Репутация: нет
Всего: нет



Этот код у меня не работает. Есть что другое?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0555 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.