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

Вниз

Как програмно изменить раскладку клавиатуры ?   Найти похожие ветки 

← →
Виталя   (2003-11-24 10:34) [0]

Подсажите,пожалуйста, при помощи какой ф-ции можно переключиться с русской на английскую раскладку и обратно ?

---

← →
Ferr   (2003-11-24 10:59) [1]

Procedure ToEnglish;
var layout:PChar;
begin
getmem(layout, 100);
loadkeyboardlayout(strcopy(layout, "00000409"), klf_activate);
freemem(layout);
end;

Procedure ToRussian;
var layout:PChar;
begin
getmem(layout, 100);
loadkeyboardlayout(strcopy(layout, "00000419"), klf_activate);
freemem(layout);
end;

---

← →
Vovchik_A   (2003-11-24 11:11) [2]

LoadKeyboardLayout("00000409", KLF_ACTIVATE); // английский
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // русский

---

← →
Vovchik_A   (2003-11-24 11:29) [3]

00000422 - украинский

---

← →
Виталя   (2003-11-24 11:38) [4]

Спасибо!

---

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

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

Наверх

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