Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Раскладка клавиатуры


Orion2 ©   (2004-05-13 12:46:00) 

Скажите пожалуйста как можно изменить раскладку клавиатуры в другом приложении (для своей оболочки - shell'а)


Orion2   (2004-05-13 13:43:00) [1]

> DVM
Не знаю надо попробовать. По идее еще надо AttachThreadInput юзать.


DVM   (2004-05-13 13:28:00) [2]


> Orion2 ©   (13.05.04 13:26) [4]

Не уверен, но я вроде бы и для окон других потоков переключал.


Orion2   (2004-05-13 13:26:00) [3]

> DVM
Стоп. Оно же работает для текущего потока (т.е. для своего), или я не прав?


DVM   (2004-05-13 13:22:00) [4]


> Orion2 ©   (13.05.04 13:18) [2]

procedure SetRU;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

procedure SetEN;
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;


Orion2   (2004-05-13 13:18:00) [5]

> DVM
неа не легче. Надо свой


DVM   (2004-05-13 13:11:00) [6]

А не легче ли подгрузить стандартный переключатель раскладок?


Наверх

Титульная страница Поиск, карта сайта Написать письмо