Vista и расскладка клавиатуры

[zeleniy]

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

procedure TMainWindow.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var AbbrLangSystem: array[0..255] of char;
begin
 if Msg.message = WM_INPUTLANGCHANGEREQUEST  then begin
   ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE);
   GetLocaleInfo(LoWord(GetKeyboardLayout(0)),LOCALE_SISO639LANGNAME ,@AbbrLangSystem,SizeOf(AbbrLangSystem)); //
   bbLangs.Caption:=UpperCase(AbbrLangSystem);
 end;
end;

так вот в висте переключение клавы работает, но не отображает на кнопке!!!! может есть какая функция другая, или может другое решение можно найти

Пы.Сы. пгоняла прогу, поняла, что в саму процедуру мы заходим, а вот WM_INPUTLANGCHANGEREQUEST не видим...так же не вдим WM_INPUTLANGCHANGE...что делать с этой вистой?

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