Смена раскладки

← →
Id (2006-06-26 17:12) [0]

Здраствуйте, уважаемые мастера.
Как программно поменять раскладку клавиатуры с русского на английский и наоборот

← →
Ega23 © (2006-06-26 17:15) [1]

Procedure SetKeybLayout(lang:byte); //Lang_russian=25 var w:word; pc:pchar; x:variant; begin w:=(word(SUBLANG_DEFAULT shl 10) or word(lang) ); pc:=pchar(inttohex(w,8)); x:=LoadKeyboardLayout(pc,KLF_ACTIVATE); end;

← →
Id (2006-06-27 16:41) [2]

> Ega23 © (26.06.06 17:15) [1]

Спасибо, работает.
Можно ссылочку, что эти буковки означают. 8-)

> [2] Id (27.06.06 16:41)
> Спасибо, работает.
> Можно ссылочку, что эти буковки означают. 8-)

http://msdn2.microsoft.com/en-us/default.aspx
http://www.microsoft.com/rus/msdn/default.aspx

Смена раскладки Найти похожие ветки