VPF::Как в программе включить Caps Lock ?

Гость_Egor

Дата 8.1.2005, 23:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Каким образом в программе включить Caps Lock клавиатуры?

mvdr

Дата 9.1.2005, 02:00 (ссылка)

(нет голосов)

Загрузка ...

физик

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

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

А зачем? Если тебе надо для распознования регистров, то это делается вроде так:
if key='П' then...

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Pakshin A. S.

Дата 9.1.2005, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код


var
KeyState: TKeyboardSate;
begin
 GetKeyboardState(KeyState);
 KeyState[VK_CAPITAL]:=1; // или 0
 SetKeyboardSate(KeyState);
end;

Zero

Дата 9.1.2005, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Pakshin A. S. ты бы хоть проверял, прежде чем давать... Твой код не работает.
И это я замечаю не первый раз. smile

Добавлено @ 14:58
Вобщем надо не заменить в словах TKeyboardSate и SetKeyboardSate на TKeyboardState и SetKeyboardState.

Код


var
KeyState: TKeyboardState;
begin
 GetKeyboardState(KeyState);
 KeyState[VK_CAPITAL]:=1; // или 0
 SetKeyboardState(KeyState);
end;

Но это не совсем нажатие, а просто переход из одного регистра в др. ИМХО программно нажать нельзя, она не связана с компом, а на прямую с клав-ой.

cardinal

Дата 9.1.2005, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

http://forum.vingrad.ru/index.php?showtopic=37287
хоть и VB, но API таже...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Zero

Дата 10.1.2005, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

А вообще-то можно: smile

Код


keybd_event(vk_Scroll, 0, 0, 0);
{vk_NumLock ,vk_Capital}

Взято отсюда

Дата 10.1.2005, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

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

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

Zero То что давал Пакшин работает только для Win9x

Zero

Дата 11.1.2005, 00:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата(RAdmin @ 10.1.2005, 11:57)

Zero То что давал Пакшин работает только для Win9x

RAdmin вообщето то что он давал вообще не работает... smile

у него написано с ошибкой. А в целом то конецно то что предложил ты лучше, и более правильно.

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