随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//获取输入法列表
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  万一  阅读(...)  评论(...编辑  收藏