Как отловить изменение раскладки клавиатуры
Нужно ловить сообщение 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;
|
|
|
|
|
Стоимость бурения скважины, бурение воды. Бурение скважин на воду канатно-ударное, стоимость. . Моментальный обмен webmoney, ввод вывод webmoney. Вывод wmz forum webmoney. . Сколько стоит дом построить?Форум - металлочерепица. Нужна металлочерепица? 176 р/м2. . Уровень работы на уровне стола - стол массажный. . |
