Текущий архив: 2003.09.18;
Скачать: CL | DM;
Вниз
Язык Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
