Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизПереключиться Eng - Rus Найти похожие ветки
← →
dim2001 (2002-01-26 16:20) [0]Подскажите как програмно переключить клавиатуру с русского на английский и обратно? СПАСИБО.
← →
copyr25 (2002-01-26 16:23) [1]procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // English
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // Russian
end;
← →
dim2001 (2002-01-27 15:51) [2]Спасибо !!!
А как узнать в каком состоянии она сейчас находится ?
← →
Pat (2002-01-27 17:03) [3]GetKeyboardLayoutName()
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c