| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переключение клавиатуры [D5, Win2k, WinXP]
Олег © (2004-03-04 11:52:00)ПЛИЗ! Кто знает как программно при запуске программы переключить клавиатуру с английской раскладки на русскую?
Amoeba (2004-03-05 14:06:00) [1]Лучше всего этот код поместить в секции Initialization модуля
Переключатель (2004-03-05 06:42:00) [2]procedure TfrmMain.FormCreate(Sender: TObject);
Const kb_lay_ru = 68748313;
begin
ActivateKeyboardLayout(kb_lay_ru, 0);
end;
Олег (2004-03-04 11:59:00) [3]Спасибо, сейчас посмотрю.
Тимохов (2004-03-04 11:58:00) [4]У меня в своей кладовке лежит
var
rus,
eng: HKL;
...
rus:=LoadKeyboardLayout('00000419', 0);
eng:=LoadKeyboardLayout('00000409', 0);
...
ActivateKeyboardLayout(rus, 0); //Включить русский.
ActivateKeyboardLayout(eng, 0); //Включить английский.
Давно ее не прерывал, по сему не знаю, может что-то не верно.
Проверьте.
savva (2004-03-04 11:57:00) [5]http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256
sniknik (2004-03-04 11:53:00) [6]faq знает.
| |
