Отображение смены языка (замена языковой панели), Delphi 7

[AndersX]

OC - Windows xp sp3 Сорри сразу не указал Delphi 7.
1. Есть прога с модальным окошком висит поверх всех.
2. трей отсутствует так как прога (1) прописана как shell
3. как результат отсутствует языковая панелька, что не есть удобно,хочется в своем модальном окошке отображать какая раскладка.
4. как перехватить смену клавиатуры при активном окне я знаю.
5. нужно перехватить смену при НЕ активном окне.
6. Дополнительных окон запущенных пользователем не лимитировано.
7. понял что надо капать в сторону hook ? но блин с наскоку не разобрался направте стопы мои к выходу а????

Спасибо за ответы :о)

[Stilet]

На http://delphiworld.narod.ru/_all_articles_.html
В разделе Язык - [18] есть ответы на твой вопрос
Вот в часности:http://delphiworld.narod.ru/base/cur_layout.html

[AndersX]

Спасибо :о)
(ну это не вся прога это отдельный проэкт под именно языковую потом в большой вставлю ясен пень :о)))
Вот что получилось не слишком коряво???
Да и остается одна проблемка она правда не сильно большая
Это сьем языка в консольных приложениях (но у пользователей ПОКА патих нету)

Да и в системе собственно всего два языка.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
  msg: PEVENTMSG;
begin
  if Code >= 0 then begin
    result := 0;
    msg := Pointer(LParam);
    with Form1 do
      case msg.message of
        WM_KEYUP: CheckBox1.Checked := false;
        WM_KEYDOWN: CheckBox1.Checked := true;
      end;
  end else
     result := CallNextHookEx(HookHandle, code, WParam, LParam);
    if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then  Form1.memo1.Text := ('ENG')
      else    Form1.memo1.Text := ('Rus');



end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.FormStyle := fsStayOnTop;
  CheckBox1.Enabled := false;
  CheckBox1.Caption := 'keyboard';
  HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HookHandle <> 0 then
    UnhookWindowsHookEx(HookHandle);
end;


end.