Отображение языка ввода на форме

[bebecap]

Всем привет! Вот мне нужно на форме отобразить язык раскладки клавы, кто знает помогите плизи. Заранее спасибо.

[GenniY]

Смотреть здесь
http://www.delphisources.ru/pages/fa...ur_layout.html

[bebecap]

Спасибо, но я бы хотел получить полный код мне на форме надо отобразить EN UK RU, при переключении раскладок, я просто в этом новчико, поэтому прошу весь код для формы. Зарнее спс.

[russian-stalker]

http://articles.org.ru/cn/showdetail.php?cid=5735

[bebecap]

Сталкер, спс

[W0LF]

procedure TForm1.Timer1Timer(Sender: TObject);
var
KlavRaskl: array [0..2] of Char;
begin
GetLocaleInfo( LoWord(GetKeyboardLayout(0)),LOCALE_SABBREVLANGNAME,KlavRaskl,SizeOf(KlavRaskl));
Label1.Caption:=KlavRaskl;
end;

[JTG]

Timer1Timer

буэ

  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
    procedure onLayoutChange(var msg: TMessage); message WM_INPUTLANGCHANGE;
  end;

...

procedure TForm1.onLayoutChange(var msg: TMessage);
var ISOname: array[0..2] of char;
begin
  GetLocaleInfo(loWord(msg.LParam), LOCALE_SABBREVLANGNAME, ISOname, sizeOf(ISOname));
  Label1.Caption := string(ISOname);
end;