Аналог языковой панели

[Lime]

Доброго времени суток !

По нужде и для опыта решил написать программу аналог "Языковой палени" windows.
Одно из основных функций - отображение текущей раскладки (языка).
Хотелось бы при запуске программы "установить" в системе 2 языка (Рус/Англ). Так же как это делается в ручную в диалоге :

Пуск - Панель управления - Язык и региональные стандарты - Языки - Подробнее - Добавить

А чтобы быть точнее , хотелось бы удалить все языки перед этим чтобы установить 2 нужных.
Часто "языковая панель" не отображается на панели задач , по настройкам или изза глюченной виндовс. Также народные умельцы устанавливают всякие албанские языки и работать без запарки трудно) Далеко не все знают как установить нужный язык)(Универ , кабинеты информатики)

Вот хотелось бы спросить в какую сторону рыть , или может есть чтонибудь похожее готовое , ну или на крайний случай нормально сформулировать гуглу вопрос) У меня увы не получается(((

Всем спасибо за отзывы !

[ОДИНОЧЕСТВО В СЕТИ]

Одно из основных функций - отображение текущей раскладки (языка).

а в чем трудность?

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Узнать текущую раскладку клавиатуры в любом активном окне

возвращает числовое значение соответственно установленной раскладке

Зависимости: windows
Автор:       KosilkA, gloom@imail.ru, Koenigsberg
Copyright:   delphi help и немного усердия :-)
Дата:        4 декабря 2003 г.
***************************************************** }

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  //раскладка английская
else
  //раскладка НЕанглийская, например 68748313 соответствует русской

delphiworld
там же
програмное переключение раскладки

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

[Alex Cones]

На всякий случай, вот отрезок кода для переключения раскладок:

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

Опоздал((((

[spamer]

http://delphiworld.narod.ru/_all_articles_.html
На данной странице введи в поиск браузера Язык - [18]

Я думаю материала для начала достаточно там.

[Lime]

Всем спасибо за информацию , когда создавал тему только начал скачивать DW c базами ... скорость к сожалению не ахти)

Проблема не в отображении а в установке/удалении из системы некоторых языков ...( точнее удаление всех установка рус/англ).

Переключение примерно теми-же вариантами нашел из других источников ...
Но как я понимаю переключение следует осуществлять убедившись что такие языки установлены ... ( а вместо проверки их можно просто установить ...)