Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Muhan_ © (2006-03-25 21:55:00)
1. Надо поменять с англ. на русскую и обратно..
2. Надо знать какая щас включена

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

Muhan_ (2006-03-27 01:29:00) [1]
супер спасибо!!!

Чудак (2006-03-26 22:32:00) [2]
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;

Чудак (2006-03-26 22:03:00) [3]

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

GetKeyboardLayoutName()

Чудак (2006-03-26 21:58:00) [4]
ActivateKeyboardLayout(russian, 0);

Muhan_ (2006-03-26 18:34:00) [5]
1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... (( пишет что неизвестная переменная(процедура)

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

Muhan_ (2006-03-26 18:33:00) [6]
1. SetActiveKeyboardLayout(russian);
вот это воспринимать не хочет... ((

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

Чудак (2006-03-26 04:19:00) [7]
var
russian, latin: HKL;

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

SetActiveKeyboardLayout(russian);

Muhan_ (2006-03-26 01:19:00) [8]
Никто не знает?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »