Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

Переключиться Eng - Rus   Найти похожие ветки 

← →
dim2001   (2002-01-26 16:20) [0]

Подскажите как програмно переключить клавиатуру с русского на английский и обратно? СПАСИБО.

---

← →
copyr25   (2002-01-26 16:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // English
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // Russian
end;

---

← →
dim2001   (2002-01-27 15:51) [2]

Спасибо !!!
А как узнать в каком состоянии она сейчас находится ?

---

← →
Pat   (2002-01-27 17:03) [3]

GetKeyboardLayoutName()

---

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

Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c