Определение раскладки клавиатуры если программа не в фокусе

[mactepmac]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

   KK : HKL;
  KBid : Integer;

  USKeyboard : integer;
  RusKeyboard : integer;



implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
USKeyboard:=1033;
  RusKeyboard:=1049;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin


KK := GetKeyboardLayout(0);
  KBid := LOWORD(KK);

  If KBid=1049 then label1.Caption:='русская раскладка'
 else label1.Caption:='английская раскладка';



end;

end.

Приведенная выше программа выдает состояние раскладки клавиатуры.

Но если программа не в фокусе а допустим запустил блокнот то программа неправильно определяет какая сейчас раскладка клавиатуры.

Как бы правильно определить раскладку клавиатуры если программа не в фокусе?

[mss]

если программа не в фокусе

Фокус ввода - термин, концепция и механизм, относящиеся не к программе , а к окну.
Окно - объект ОС, создаваемый конкретным объектом - кодовым потоком. Раскладка клавы - это индивидуальный элемент контекста каждого отдельно рассматриваемого существующего кодового потока.
В WinAPI есть ф-ция, позволяющая одному кодовому потоку "подключиться" к контексту ввода-вывода другого кодового потока - AttachThreadInput(). Эту ф-цию и следует курить для решения "задачи о раскладке".

[mactepmac]

Спасибо конечно только я ничего не понял. Может быть маленький примерчик можно?

[Stilet]

Предположительно так: Выясняем какое окно в фокусе (GetFocus или я лично предпочитаю GetForegroundWindow), далее выясняем его главный поток (GetWindowThreadProcessId, или лучше будет использовать EnumThreadWindows), а уже потом можно тот ThreadId передавая в GetKeyboardLayout получить раскладку.
Это ИМХО, сам я не пробовал такое сочетание функций

[mactepmac]

//***************** end of GetActiveKbdLayot ****************************
{активная раскладка в активном окне}
function GetActiveKbdLayoutWnd : LongWord;
var
 hWindow,idProcess : THandle;
begin
 // получить handle активного окна чужой программы
 hWindow := GetForegroundWindow;
 // Получить идентификатор чужого процесса
 idProcess := GetWindowThreadProcessId(hWindow,nil);
 // Получить текущуб раскладку в чужой программе

 Result:=(GetKeyboardLayout(idProcess) shr $10);

Нашел вот такую функцию. Но она возвращает одно и тоже значение 0.
В чем причина может быть?

[spamer]

Та не, функция рабочая...
Вот например по таймеру все работает:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := IntToStr(GetActiveKbdLayoutWnd);
end;

[mactepmac]

Спс. Получилось