VPF::keybd_event - Форум программистов

December

Дата 15.7.2003, 21:22 (ссылка)

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

Загрузка ...

Antitheorist

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

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

Greetings All!
Кто поделится опытом, почему простенькие строчки

Код


keybd_event(VK_CONTROL,0,0,0);
keybd_event(VK_SHIFT,0,0,0);

keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);

не дают требуемого эффекта (то есть не переключают язык)?

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

Для друзей с винграда - скидки на разработку сайтов

<Spawn>

Дата 16.7.2003, 05:27 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Для данной задачи, помоему, лучше было бы использовать GetkeyboardLayout, ActivateKeyboardLayout

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

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

Дата 16.7.2003, 11:02 (ссылка)

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

Загрузка ...

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

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

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

Может попробовать передеть их какомунить окну.

December

Дата 16.7.2003, 19:34 (ссылка)

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

Загрузка ...

Antitheorist

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

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

Да нет, хочется именно через эмуляцию клавы.
Тут глючок похуже вылез - не отжимается Shift!!!!
Из-за этого начинаются совсем непонятные всёлости... Кто-нибудь с этим сталкивался?

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

Для друзей с винграда - скидки на разработку сайтов

December

Дата 18.7.2003, 20:41 (ссылка)

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

Загрузка ...

Antitheorist

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

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

Greetings All!
Вот, разобрался, хочу поделиться радостью, поскольку в том SDK Help, который к Delphi приклеен, такого не сыщешь. Как нужно делать:

Код


procedure KeyDive(Key:integer);
begin
keybd_event(Key, mapvirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY, 0);
end;

procedure KeyUp(Key:integer);
begin
keybd_event(Key, mapvirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

Один товарисч ещё предлагает вместо последнего нуля при вызове функции звать GetMessageExtraInfo, но реальной пользы от этого я не уловил.

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

Для друзей с винграда - скидки на разработку сайтов

Pakshin A. S.

Дата 20.7.2003, 19:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ещё выриант:

Код


procedure SetRus;
var
 rus:HKL;
begin
 try
  rus:=LoadKeyboardLayout('00000419', 0);
  ActivateKeyboardLayout(rus, 0);
 except
  ShowMEssage('Попытка не удалася!');
 end;
end;

procedure SetLat;
var
 Lat:HKL;
begin
 try
  Lat:=LoadKeyboardLayout('00000409', 0);
  ActivateKeyboardLayout(Lat, 0);
 except
  ShowMEssage('Попытка не удалася!');
 end;
end;

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