VPF::Переключить раскладку по нажатию клавиши

DelphianOracle

Дата 12.11.2007, 20:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Код


var
   r: Array[0..$FFF] of Char;
   s:string;
   Layout: array[0.. KL_NAMELENGTH] of char;
......
   GetKeyboardLayoutName(r);
   s:=StrPas(r);
   if s = '00000409' then LoadKeyboardLayout(
                  StrCopy(Layout,'00000419'),KLF_ACTIVATE)
   else
   LoadKeyboardLayout(
                  StrCopy(Layout,'00000409'),KLF_ACTIVATE);

Rennigth

Дата 13.11.2007, 11:42 (ссылка)

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

Загрузка ...

Эксперт

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

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

DelphianOracle,

Цитата

The LoadKeyboardLayout function loads a new input locale identifier (formerly called the keyboard layout) into the system. Several input locale identifiers can be loaded at a time, but only one per process is active at a time. Loading multiple input locale identifiers makes it possible to rapidly switch between them.

читаем внимательнее msdn

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

(* Honesta mors turpi vita potior *)

DelphianOracle

Дата 13.11.2007, 16:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ясно... А что делать? Как можно глобально изменить раскладку?

Rennigth

Дата 14.11.2007, 13:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(DelphianOracle @ 13.11.2007, 16:40

)

Ясно... А что делать? Как можно глобально изменить раскладку?

долго и внимательно курим http://msdn2.microsoft.com/ru-ru/library/ms776220.aspx
Там не так все просто, выполнением одной апишки необойтись.

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

(* Honesta mors turpi vita potior *)

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