Определить раскладу в чужом приложении.

[Василий]

программа переключается в другое приложение и набирает там текст (имитцией нажатия клавиш на клаве)

1) мне нужно знать какой язык сейчас стоит в этом приложении и
2) как поменять раскладку в нем же
какие функции можно использовать?

PS мне надо поменять раскладку не в своем, а в другом приложении

[Terran]

1) мне нужно знать какой язык сейчас стоит в этом приложении и

Узнать раскладку с любом активном окне можно так:

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
//раскладка английская
else
//раскладка НЕ английская, например 68748313 соответствует русской

2) как поменять раскладку в нем же
какие функции можно использовать?

Изменить раскладку можно так:

Procedure SetLayoutActiveWndRu;//установка русской раскладки
Var
Layout: HKL;
HWindow: THandle;
Begin
HWindow:=GetForegroundWindow;
Layout:=68748313;
SendMessage(HWindow, WM_INPUTLANGCHANGEREQUEST, 1, Layout);
End;
...
Procedure SetLayoutActiveWndEn;//Установка английской раскладки
Var
Layout: HKL;
HWindow: THandle;
Begin
HWindow:=GetForegroundWindow;
Layout:=67699721;
SendMessage(HWindow, WM_INPUTLANGCHANGEREQUEST, 1, Layout);
End;

[JUDAS]

1)узнаем
var
s: array [0..63] of char;
begin
GetKeyboardLayoutName(s);
Form1.Caption := s;
end;


2) меняем
Layout: array [0.. KL_NAMELENGTH] of char;
.....
LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE); // Русс.
LoadKeyboardLayout(StrCopy(Layout, '00000409'), KLF_ACTIVATE);// англ.

Вроди работает для всей ОС, включая активные приложения.
PS: Может в программе стоит принудительное изменение языка ввода допусти по ТАЙМЕРУ ?

[Василий]

2Terran спасибо!