[Speech]

Добрый вечер. Собственно вопрос в заголовке темы. Поиск по интернету и форуму дал не много.
Как известно Windows запоминает раскладку для каждого окна. Как ее сменить в своем окне конечно нашел:

Код:

LoadKeyboardLayout(StrCopy(Layout,'00000419'),KLF_ACTIVATE);

Это переключает на русский. Нужно тоже самое, но к примеру для Блокнота. Может кто что подсказать?

[Bargest]

Я нашел WM_INPUTLANGCHANGEREQUEST за 30 секунд. ЧЯДНТ?

[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;

[Freeman]

Использование StrCopy в этом примере -- быдлокод.

[NumLock]

Код:

  PostMessage(FindWindow(nil, 'Безымянный - Блокнот'), WM_INPUTLANGCHANGEREQUEST,
    0, LoadKeyboardLayout('00000419', KLF_ACTIVATE));