Язык

← →
Klim Samgin (2003-07-04 13:12) [0]

Доброго времени суток.
Не подскажите ли как определить, какой язык задействован при запуске программы и как переключить его на нужный (программно естественно)

← →
MBo © (2003-07-04 13:17) [1]

FAQ

установка раскладки
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;

Язык Найти похожие ветки