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

[FaTaL]

Сообщение от Yurk@

уточню:

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

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

Ты попробуй вместо Label1.Caption сделать ShowMessage и при запуске программы, сообщение выйдет раз 50 наверно. Зачем зря грузить систему? Нужно именно отлавливать WM_INPUTLANGCHANGE, только как?

GunSmoker, ну напиши плиз пример с хуком.

[FaTaL]

Сообщение от Аватар

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

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

[Аватар]

procedure TForm2.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=ApplicationEventsMessage;
end;

procedure TForm2.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
begin
  if msg.message = WM_INPUTLANGCHANGEREQUEST then ShowMessage('Поймал!');
end;

[FaTaL]

Не работает этот код. Не ловит он сообщение.

[Yurk@]

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

Ты попробуй вместо Label1.Caption сделать ShowMessage и при запуске программы, сообщение выйдет раз 50 наверно. Зачем зря грузить систему? ...

мне это на скорости не сильно сказывается, а главное что работает нормально

[FaTaL]

Ну что никто не поможет с хуком на WM_INPUTLANGCHANGE?

[FaTaL]

Всем спасибо, но никто не оказался прав. Еле-еле нашёл на просторах инета код на C# и всё получилось. Оказывается сообщение WM_INPUTLANGCHANGE и WM_INPUTLANGCHANGEREQUEST работает только на ОСях ниже чем ХР. А на новых ОСях всё совсем по другому.
Если кому нужно, то вот функция хука:

function HookProc (nCode: integer; wParam: word; lParam: LongWord): LongWord; stdcall;
begin
  if nCode = HSHELL_LANGUAGE then
    // Язык сменился, делаем что Вам надо;
  result := CallNextHookEx(HookH, nCode, wParam, lParam);
end;

Хук ставить на WH_SHELL