Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизРаскладка клавиатуры Найти похожие ветки
← →
lipskiy (2002-03-20 20:54) [1]Не то?
Программное переключение раскладок клавиатуры
procedure TForm1.Button1Click(Sender: TObject);//На русский
var Layout: array [0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,"00000419"),KLF_ACTIVATE);
end;
procedure TForm1.Button2Click(Sender: TObject);//На английский
var Layout: array [0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c