Смена раскладки клавиатуры

[NoName_emaNoN]

Всем привет! Такая ситуация: есть кнопка, на которой изображена текущая раскладка клавиатуры, при нажатии меняется на другую, исходя из текста "бывшего" языка переключает на другой. Переключать умею, считывать умею, но одна проблема: если пользователь сам, сочетанием клавиш переключит раскладку клавы, то текст то на кнопке останется тот же и при нажатии на кнопку... короче несостыковка выйдет. Вопрос: Как узнать что раскладка была переключена пользователем? Может есть сообщение от винды? Я знаю что можно реализовать это таймером, но неохото его гонять и тратить процессорные ресурсы, ибо и так мало

[Stilet]

WM_INPUTLANGCHANGEREQUEST

[NoName_emaNoN]

Сообщение от Stilet

WM_INPUTLANGCHANGEREQUEST

Не работает...

[Stilet]

Не работает...

Потому что: The WM_INPUTLANGCHANGEREQUEST message is posted to the application's top-level window
Надо хук ставить.

[NoName_emaNoN]

Сообщение от Stilet

Потому что: The WM_INPUTLANGCHANGEREQUEST message is posted to the application's top-level window
Надо хук ставить.

Ээээ... фразу на ангийском как понимать?

о... а без хука не обойтись?) А то я с хуками не очень...) Или хотябы подкажите как ставить, если можно...

[SERG1980]

LoadKeyBoardLayout('00000419',KLF_A CTIVATE) русская
LoadKeyBoardLayout('00000409',KLF_A CTIVATE) енглиш

[Stilet]

фразу на ангийском как понимать?

Это значит что это сообщение придет только окну на переднем плане.

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

[NoName_emaNoN]

Сообщение от Stilet

Это значит что это сообщение придет только окну на переднем плане.

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

То что окну на переднем плане знакомо... при считывании нажатий мультимедийных клавиш точно такое же было. Но здесь ситуация немного иная: Здесь же для каждого окна свой язык, т.е. если перевожу язык, то перевожу для конкретного окна. Т.е. язык в окне программы изменится только в том случае если оно активно и нажато сочетание клавиш. Т.е. выходит что нам только окно на переднем плане и нужно... вот...

А суть в том что даже окну на переднем плане сообщение не приходит...

[Stilet]

А суть в том что даже окну на переднем плане сообщение не приходит...

Глупости.
Скажи еще что это не работает:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure q(var w:tagMSG); message WM_INPUTLANGCHANGEREQUEST;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.q(var w: tagMSG);
begin
caption:='d';
end;

end.

[NoName_emaNoN]

Сообщение от Stilet

Глупости.
Скажи еще что это не работает:
...

Работает Я за место типа "tagMSG" использовал "TMessage". Кстати а как вообще понять какой тип когда использовать?

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