Изменение раскладки клавиатуры в чужом окне

[Fil]

Возник вопрос смены раскладки клавиатуры в приложении Word. Как это сделать. Стандартные апи - меняют только в своём окне. Может есть какая функция, которая меняет раскладку по хвнд. Переключение с помощью имитации нажатия на сочетания клавиш забинженных виндою не подходит.

[Twister]

Нет под рукой кода VB, но есть делфя... Тут пара советов.
1. Переключить раскладку клавиатуры:

Код: Выделить всё

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

2. Узнать текущую раскладку клавиатуры в любом активном окне.
Возвращает числовое значение соответственно установленной раскладке:

Код: Выделить всё

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

3. Отловить изменение раскладки клавиатуры:

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST

или

Код: Выделить всё

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Layout: array [0.. KL_NAMELENGTH] of char;
begin
  GetKeyboardLayoutName(Layout);
  if Layout = '00000409' then
    label1.caption:='en'
  else
    label1.caption:='ru';
end;

Может пригодиться...

[Fil]

Спасибо, буду пробовать

[GSerg]

Twister
И что, это меняет раскладку в чужом окне?

[Fil]

Не помогает! Это всё-таки одна из стандартных апи. И она работает только на свём процессе.

[Fil]

GSerg
Конечно не меняет, но попробовать стоило. Хотя я и возился с ActivateKeyboardLayout и GetKeyboardLayout. Эффект тот же (