Переключение клавиатуры

← →
Олег (2004-03-04 11:52) [0]

ПЛИЗ! Кто знает как программно при запуске программы переключить клавиатуру с английской раскладки на русскую?

← →
sniknik © (2004-03-04 11:53) [1]

faq знает.

← →
savva © (2004-03-04 11:57) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256

← →
Тимохов © (2004-03-04 11:58) [3]

У меня в своей кладовке лежит

var
rus,
eng: HKL;
...
rus:=LoadKeyboardLayout("00000419", 0);
eng:=LoadKeyboardLayout("00000409", 0);
...
ActivateKeyboardLayout(rus, 0); //Включить русский.
ActivateKeyboardLayout(eng, 0); //Включить английский.

Давно ее не прерывал, по сему не знаю, может что-то не верно.
Проверьте.

← →
Олег (2004-03-04 11:59) [4]

Спасибо, сейчас посмотрю.

← →
Переключатель (2004-03-05 06:42) [5]

procedure TfrmMain.FormCreate(Sender: TObject);
Const kb_lay_ru = 68748313;
begin
ActivateKeyboardLayout(kb_lay_ru, 0);
end;

Лучше всего этот код поместить в секции Initialization модуля

Переключение клавиатуры Найти похожие ветки