Форум: "Начинающим";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Вниз
Смена раскладки Найти похожие ветки
← →
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-)
← →
Джо © (2006-06-27 16:53) [3]> [2] Id (27.06.06 16:41)
> Спасибо, работает.
> Можно ссылочку, что эти буковки означают. 8-)
http://msdn2.microsoft.com/en-us/default.aspx
http://www.microsoft.com/rus/msdn/default.aspx
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c
