TScreen 类 - 获取当前输入法与输入法列表

//获取输入法列表

begin

  Memo1.Lines := Screen.Imes;

end;


 
   




//获取当前输入法

var

  kl: HKL;

  i: Integer;

begin

  kl := GetKeyboardLayout(0);

  for i := 0 to Screen.Imes.Count - 1 do

    if HKL(Screen.Imes.Objects[i]) = kl then

      ShowMessage(Screen.Imes.Strings[i]); {显示当前输入法}

end;