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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Александр

Клавиатура Калашникова: 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;

{/codecitation}

Добавить комментарий