Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Как отловить изменение раскладки клавиатуры? Пример на Delphi »

 
 
 
Приветствуем нового пользователя: JuiseeBlolley
 
Реклама на сайте

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

Автор: SkyLine32 | 29-03-2011, 14:32 | Просмотров: 10523 | Категория: Примеры на Delphi » Примеры на Delphi Система

0

Привожу пример на Delphi, как можно отловить изменение, смену раскладки клавиатуры
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = '00000409' then
label1.caption:='en'
else
label1.caption:='ru';
end;
Прямая ссылка на страницу: HTML ссылка: Ссылка для форумов:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
 
-й день
Онлайн:
rss