[Speech]

Спасибо. В знак своей ленивости искать примеры на англоязычных сайтах, приведу конечный пример, может кому еще нужно будет:

Код:

var
  HandleWindow : Integer;

const
  WindowTitle = 'Notepad';

procedure Change_Keyboard;
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  HandleWindow:=FindWindow(nil, WindowTitle);
  PostMessage(HandleWindow, WM_INPUTLANGCHANGEREQUEST, 0, LoadKeyboardLayout( StrCopy(Layout,'00000419'), KLF_ACTIVATE));
end;