Добрый день. В ОС Windows есть системный трей, и в нижнем правом углу "Языковая панель", в которой можно изменить текущий язык ввода.
никто не в курсе где в реестре Windows записывается текущее значение выбранного языка (русский там, английский и далее)?
или может не в реестре а где то еще?

[Andy_Jonson]

"где-то там"...
Скажу лишь что это команды WinAPI и реестр может указать лишь язык по умолчанию.
Причем в Win7 и WinXP разные команды...
Если же речь идет про язык в чужих программах, то это тема для небольшой ветки форума...
Самую лучшую статью на руском находил на Королевстве Делфи.

[Yurk@]

Код:

function GetLanguage: string;
var
  Lar: array[0..$FFF] of char;
begin
  GetKeyboardLayoutName(Lar);
  case StrToInt(StrPas(Lar)) of
    409: Result:='Мова: Англійська';
    419: Result:='Мова: Російська';
    422: Result:='Мова: Українська';
  else
    LoadKeyboardLayout('00000409',KLF_ACTIVATE);
    Result:='Мова: Англійська';
  end;
end;

не оно ?

не, не оно
вот смотри:
- запускаю к примеру браузер
- выбираю для него англ. язык для ввода к примеру логина-пароля
как сторонней программе узнать, какоя текущая языковая страница

может:
- получить ИД браузера?
- по ИД получить соответсвующий ему язык?

[NumLock]

Microsoft® Win32® Programmer's Reference

The GetKeyboardLayout function retrieves the active keyboard layout for a specified thread. If the dwLayout parameter is zero, the layout for the active thread is returned.

HKL GetKeyboardLayout(
DWORD dwLayout // thread identifier
);

Parameters

dwLayout
Identifies the thread to query or is zero for the current thread.

Return Values

The return value is the keyboard layout handle for the thread. The low word contains a locale identifier identifying the input language and the high word contains a device handle identifying the physical layout of the keyboard.