Текущая раскладка клавиатуры

[FaTaL]

Сделал так, и что то не наблюдал сбоев (для двух языков, больше и не надо):

...
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure GetLang (var msg : TMessage); message WM_INPUTLANGCHANGE;
  private

...

procedure TForm1.GetLang(var msg: TMessage);
begin
  case msg.LParamLo of
    1033 : Label1.Caption := 'Английский';
    1049 : Label1.Caption := 'Русский';
  end;
end;

[FaTaL]

Приведённый выше код работает только когда на форме нет контролов ввода. А вот если на форму кинуть например TEdit, то окно не реагирует на сообщение. Как этого избежать?

[GunSmoker]

Приведи плиз пример с ITfLanguageProfileNotifySink.

У меня нет готового примера с интерфейсами. Честно говоря, лениво писать, там достаточно сложный код.

Приведённый выше код работает только когда на форме нет контролов ввода. А вот если на форму кинуть например TEdit, то окно не реагирует на сообщение. Как этого избежать?

Ставить хук.

Вообще, я бы не рекомендовал использовать WM_INPUTLANGCHANGE. Забудьте про него, он устарел ещё в Windows XP, но это было не так заметно, поскольку раскладки остались старые. Но в Vista/Win7 это уже более заметно и чем дальше, тем будет хуже.

[FaTaL]

GunSmoker, можно примерчик с локальным хуком на WM_INPUTLANGCHANGE

[FaTaL]

Может кто-нибудь поможет с примером без использования таймера?
Заранее благодарен.

[Yurk@]

для себя делал ч\з компонент TApplicationEvents в событии OnMessage писал:

function GetLanguage: string;
var
Lar: array[0..$FFF] of char;
begin
GetKeyboardLayoutName(Lar);
case StrToInt(StrPas(Lar)) of
    409: Result:='Язык: Английский';
    419: Result:='Язык: Русский';
    422: Result:='Язык: Украинский';
    else LoadKeyboardLayout('00000409',KLF_ACTIVATE);
         Result:='Язык: Английский';
    end;
end;

[FaTaL]

Если вызвать так Вашу функцию

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if msg.message = WM_INPUTLANGCHANGE then
    ShowMessage (GetLanguage);
end;

То она не срабатывает. А если без проверки на сообщение WM_INPUTLANGCHANGE, то функция постоянно выдаёт язык, т.к. реагирует на все сообщения окна.
Тут именно нужно как то ловить сообщение WM_INPUTLANGCHANGE. Вопрос КАК? Всезнающий GunSmoker не отвечает даже в аське.

[Yurk@]

уточню:

procedure TfLogin.AppEMessage(var Msg: tagMSG; var Handled: Boolean);
begin
lbLang.Caption:=GetLanguage;
end;

и зачем ее ловить? если она нормально реагирует на все изменения языка

[Аватар]

WM_INPUTLANGCHANGEREQUEST в Application.OnMessage для XP нормально отлавливает изменение языка ввода. Наверно GunSmoker прав, что не всегда, но пока не замечал бяк

[GunSmoker]

offtopic

Всезнающий GunSmoker не отвечает даже в аське.

Ты или спам-фильтр не прошёл или в игноре.