[xo6a]

Переключаюсь в другое приложение нажатием мышки, а далее печатаю текст при помощи "keybd_event" (якобы нажимаю буковки)

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

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

[dmitryb1]

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

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil))=67699721 then
 Caption:= 'Анг'
else
 Caption:='Рус';
end;

PS. В настройках своей формы (FormStyle) поставь Поверх всех окон (fsStayOnTop), чтобы увидеть результат в заголовке своей формы