cadil , ты не отвечаешь на мой ответ с ноября прошлого года
>твоя программа должна отображать язык текстом в поле на форме аналогично тому, как приведеная выше программа отображает язык в трее флагом? та программа не то, что не активна, у нее даже формы нет!
про перехват клавиш вообще не понял к чему...
есть модуль KeyboardLayout. в нем функция:
function NeedKeyboardLayout: Cardinal;
Код:
implementation
uses KeyboardLayout;
Edit1.Text:=IntToStr(NeedKeyboardLayout);
http://narod.ru/disk/17533643001/Key...ayout.dcu.html