[WinApi] получение языка ввода для окна

Есть hWnd окна, нужно определить текущий язык ввода. Как это можно сделать? Заранее благодарен.

 

я так понял, что окно не "свое", если не ошибаюсь, то так:

Code:

function GetActiveKbdLayoutWnd(hWnd: THandle): LongWord;
var
  idProcess : THandle;
begin
  idProcess := GetWindowThreadProcessId(hWnd, nil);
  Result:=(GetKeyboardLayout(idProcess) shr $10);
end;