Форум: "Система";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
Вниз
Язык Найти похожие ветки
← →
Klim Samgin (2003-07-04 13:12) [0]Доброго времени суток.
Не подскажите ли как определить, какой язык задействован при запуске программы и как переключить его на нужный (программно естественно)
← →
MBo (2003-07-04 13:17) [1]FAQ
← →
Shluz (2003-07-04 20:40) [2]установка раскладки
LoadKeyboardLayout("00000409", KLF_ACTIVATE); - английский
LoadKeyboardLayout("00000419", KLF_ACTIVATE); - русский
получение :
function GetActiveKbdLayout : Word; stdcall;
var
hWindow,idProcess : THandle;
begin
// получить handle активного окна чужой программы
hWindow := GetForegroundWindow;
// Получить идентификатор чужого процесса
idProcess := GetWindowThreadProcessId(hWindow,nil);
// Получить текущую раскладку в чужой программе
Result:=(GetKeyboardLayout(idProcess) shr $10);
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c
