[cadil]

Есть процедура, которая отображает язык из трея на поле формы:

Код:

procedure TForm1.TimerKTimer(Sender: TObject);
var
  buf: array [0..$ff] of Char;
begin
   if getasynckeystate($61)<>0 then
EditAdd.Text:='1';
  GetKeyboardLayoutName(buf);
  if ((StrPas(buf)= '00020409') or (StrPas(buf)= '00000409')) then LabelK.Caption:='EN';
  if StrPas(buf)= '00000419' then LabelK.Caption:='RU';
end;

Эта процедура работает, когда окно программы активно.
Помогите организовать эту процедуру так, чтобы она отображала состояние клавиатуры (язык) в том случае, когда программа находится в пассивном состоянии - по аналогии, например, с перехватом клавиш:

Код:

if getasynckeystate($61)<>0 then
EditAdd.Text:='1';

Спасибо!

[NumLock]

как эта программа показывает язык в трее?
http://data.cod.ru/112448

[cadil]

Сообщение от NumLock

как эта программа показывает язык в трее?
http://data.cod.ru/112448

язык ИЗ трея (дублирует!)

[NumLock]

ну. если в трее RU, то показывает русский флаг, если EN, то американский.

[cadil]

Тема висит уже 5 дней и не одного сообщения по сути. А жаль ...
Для меня эта задачка очень актуальна.
Помогите, хотя бы, найти код для виртуальных клавиш Shift+Alt (переключение языка).
Спасибо!

[NumLock]

cadil , ты не отвечаешь на мой ответ с ноября прошлого года
>твоя программа должна отображать язык текстом в поле на форме аналогично тому, как приведеная выше программа отображает язык в трее флагом? та программа не то, что не активна, у нее даже формы нет!
про перехват клавиш вообще не понял к чему...

есть модуль KeyboardLayout. в нем функция:
function NeedKeyboardLayout: Cardinal;

Код:

implementation

uses KeyboardLayout;

Edit1.Text:=IntToStr(NeedKeyboardLayout);

http://narod.ru/disk/17533643001/Key...ayout.dcu.html