VPF::Как узнать раскладку клавиатуры

JanMihail

Дата 30.6.2007, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 31.5.2007
Где: Астана

Репутация: нет
Всего: нет

Знаю, что можно узнать раскладку клавы с помощью:
GetKeyboardLayout
GetKeyboardLayoutName
Но эти функции работают, только пока форма приложения активна. Как только переключишься на другое приложение, раскладка не определяется. Не подскажете как справиться с проблемой?

valentos

Дата 30.6.2007, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Попробуй ловить сообщения по таймеру, в этом случае раскладка будет проверяться в заданый интервал!!

Код


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;

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

Sunvas

Дата 1.7.2007, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(JanMihail @ 30.6.2007, 18:30

)

Не подскажете как справиться с проблемой?

А зачем? Винда для каждого окна запоминает свою раскладку и меняет ее автоматически, как только мы перескакиваем по окнам.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 1.7.2007, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Цитата(JanMihail @ 30.6.2007, 19:30

)

Но эти функции работают, только пока форма приложения активна.

Как так? Там же для любого треда мона узнать, значит для любого окна.
Очень легко осуществляется с помощью маленького набора функций: GetForegroundWindow, GetWindowThreadProcessId, GetKeyboardLayout.

Это сообщение отредактировал(а) Yanis - 1.7.2007, 11:27

--------------------

*щёлк*

JanMihail

Дата 1.7.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 31.5.2007
Где: Астана

Репутация: нет
Всего: нет

Спасибо! Осуществил так!
GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil));

А по значению которое функция возвратила, можно определить название раскладки? или Case'ом делать?

Yanis

Дата 1.7.2007, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Цитата(JanMihail @ 1.7.2007, 12:47

)

А по значению которое функция возвратила, можно определить название раскладки?

Из DRKB:

Код

function WhichLanguage: string;
var
  ID: LangID;
  Language: array [0..100] of char;
begin
  ID := GetSystemDefaultLangID;
  VerLanguageName(ID, Language,100);
  Result := String(Language);
end;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »