Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

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

← →
Олег   (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;

---

← →
Amoeba ©   (2004-03-05 14:06) [6]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c