[Speech]

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

Код:

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

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

[Bargest]

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

[Speech]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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]

Код:

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