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

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

← →
Muhan_   (2006-03-25 21:55) [0]

1. Надо поменять с англ. на русскую и обратно..
2. Надо знать какая щас включена

Нигде не нашел..должно быть просто )ъ
Спасибо.

---

← →
Muhan_   (2006-03-26 01:19) [1]

Никто не знает?

---

← →
Чудак   (2006-03-26 04:19) [2]

var
russian, latin: HKL;

russian := LoadKeyboardLayout("00000419", 0);
latin   := LoadKeyboardLayout("00000409", 0);

SetActiveKeyboardLayout(russian);

---

← →
Muhan_   (2006-03-26 18:33) [3]

1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... ((

2. и еще как узнать какая щас раскладска стоит?

---

← →
Muhan_   (2006-03-26 18:34) [4]

1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... (( пишет что неизвестная переменная(процедура)

2. и еще как узнать какая щас раскладска стоит?

---

← →
Чудак   (2006-03-26 21:58) [5]

ActivateKeyboardLayout(russian, 0);

---

← →
Чудак   (2006-03-26 22:03) [6]

> Muhan_   (26.03.06 18:34) [4]
>
> 2. и еще как узнать какая щас раскладска стоит?

GetKeyboardLayoutName()

---

← →
Чудак   (2006-03-26 22:32) [7]

procedure TForm1.Button1Click(Sender: TObject);
var
russian, latin: HKL;
begin
russian := LoadKeyboardLayout("00000419", 0);
latin   := LoadKeyboardLayout("00000409", 0);

if GetKeyBoardLayout(0) = russian then
 ActivateKeyboardLayout(latin,0)
else
 ActivateKeyboardLayout(russian,0);

end;

---

← →
Muhan_   (2006-03-27 01:29) [8]

супер спасибо!!!

---

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

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



Память: 0.46 MB
Время: 0.025 c