//获取输入法列表
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;
转载于:https://my.oschina.net/hermer/blog/320343