Текущая раскладка клавиатуры

[_-Re@l-_]

Ни поиск, ни Google не спасли.

var
  Form1: TForm1;
  X : PAnsiChar;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      GetKeyboardLayoutName(X);
end;

Не работает.
Как быть?

[Пепел Феникса]

а память кто выделит под буфер?

function GetKBLayoutName:string;
begin
 SetLength(Result,KL_NAMELENGTH);
 GetKeybooadLayoutName(@Result[1]);
 SetLength(Result,lstrlen(@result[1]));
end;

[_-Re@l-_]

Опст, спасибо.

[eoln]

Было такое, помню http://programmersforum.ru/showpost....5&postcount=11

[Аватар]

Выдернул из проекта чуть более расширенный вариант

procedure TFPasw.UpDateStateButtons;
var abKeyState: TKeyboardState;
    BufName: array[0..KL_NAMELENGTH-1] of Char;
begin
  GetKeyboardState(abKeyState);
  if abKeyState[VK_NUMLOCK]=$01 then ShapeNumLock.Brush.Color:=clLime
                                else ShapeNumLock.Brush.Color:=clBtnFace;
  if abKeyState[VK_CAPITAL]=$01 then ShapeCapsLock.Brush.Color:=clLime
                                else ShapeCapsLock.Brush.Color:=clBtnFace;
  if abKeyState[VK_SCROLL]=$01  then ShapeScrollLock.Brush.Color:=clLime
                                else ShapeScrollLock.Brush.Color:=clBtnFace;
  GetKeyboardLayoutName(@BufName);
  case Lo(StrToInt('$'+String(BufName))) of
  LANG_RUSSIAN  : LabelLaout.Caption:='Русский';
  LANG_UKRAINIAN: LabelLaout.Caption:='Украинский';
  LANG_ENGLISH  : LabelLaout.Caption:='Английский';
  else LabelLaout.Caption:='???';
  end;
end;

[FaTaL]

Это всё хорошо. Вот только как в своей программе сделать "индикатор" раскладки, чтобы реагировал на смену раскладки? Не запихивать же этот код в таймер?!

[Аватар]

В Application.OnMessage изменение языковой раскладки ловить WM_INPUTLANGCHANGEREQUEST.
Изменение состояния NumLock, CapsLock и ScrollLock ловить в Form.OnKeyPress.
И при активизации формы

[FaTaL]

Спасибо. Покажите пример плиз для WM_INPUTLANGCHANGEREQUEST, что то у меня Дельфин не распознаёт такое событие.

Спасибо Аватар. Сам разобрался:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
  procedure LangChange (var message : TMessage); message  WM_INPUTLANGCHANGE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.LangChange(var message: TMessage);
var
  BufName: array[0..KL_NAMELENGTH-1] of Char;
begin
  GetKeyboardLayoutName(@BufName);
  case Lo(StrToInt('$'+String(BufName))) of
  LANG_RUSSIAN  : Label1.Caption:='Русский';
  LANG_UKRAINIAN: Label1.Caption:='Украинский';
  LANG_ENGLISH  : Label1.Caption:='Английский';
  else Label1.Caption:='???';
  end;
end;

end.

[GunSmoker]

Во-первых, WM_INPUTLANGCHANGEREQUEST будет работать далеко не всегда.

Проще всего - таймер. Если хочется правильно, то... ITfLanguageProfileNotifySink.

Во-вторых, примеры кода выше не получают активную раскладку клавиатуры. Они получают язык ввода. Это далеко не одно и то же. К примеру, за пределами СНГ часто используют русскую фонетическую раскладку вместо ЙЦУКЕН.

http://www.transl-gunsmoker.ru/2010/...g-post_09.html

[FaTaL]

Приведи плиз пример с ITfLanguageProfileNotifySink.