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

← →
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]

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

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