//获取输入法列表
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;
posted on 2008-01-22 16:58  万一  阅读(6817)  评论(16编辑  收藏  举报