Скачать: CL | DM;

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

← →
Виталя ©   (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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c