Смена раскладки [Delphi XE3]

[-Jack-]

Всем доброго времени суток. А кто знает, каким образом можно изменить раскладку в чужом приложении ?

[Stilet]

Как вариант: Послать ему нажатие клавиш, отвечающих за изменение раскладки.

[-Jack-]

Попробовал вот так сделать ... что-то не пошло ...
GPHandle - Handle процесса

sendMessage(GPHandle,WM_INPUTLANGCHANGEREQUEST,1,HKL_Next);

[-Jack-]

Разобрался, проблема была в том, что я указывал неверный Handle. Нужно было указывать Handle окна, а не процесса

var
GPHandle: Thandle;
begin
  GPHandle:=FindWindow(nil, PChar('Калькулятор'));
  sendMessage(GPHandle,WM_INPUTLANGCHANGEREQUEST,1,HKL_Next);
end;