怎么样判断当前系统的输入法：

Question

怎么样判断当前系统的输入法 。比如说判断输入法是俄语！小弟新手 ！不懂 啊！delphi 中的！

Answer 1

当前输入法
uses
  IMM;function GetIMMName():String;
var
  _hkl: HKL;
  Buffer: array[0..255] of Char;
begin
  _hkl := GetKeyboardLayout(0);
  ImmGetDescription(_hkl, Buffer, 255);
  Result := Buffer;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(GetIMMName);
end;

Answer 2

获取当前输入法与输入法列表:
http://www.cnblogs.com/del/archive/2008/01/22/1048945.html