DELPHI/Часто задаваемые вопросы и ответы на них/ОС и железо



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / ОС и железо / Как отловить изменение раскладки клавиатуры

Как отловить изменение раскладки клавиатуры
Автор: Александр

Клавиатура Калашникова: Del-Del-Del-Del-.....

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST

или
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Layout: array [0.. KL_NAMELENGTH] of char;
begin
  GetKeyboardLayoutName(Layout);
  if Layout = '00000409' then
    label1.caption:='en'
  else
    label1.caption:='ru';
end;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru