delphi 获取当前输入法

本文整理自网络，侵删。

 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;  

相关阅读 >>

Delphi 不管什么datetime日期格式时间格式转换都不会错了

Delphi 实现程序 动态 类名

Delphi 计算程序运行时间

Delphi pagecontrol1 另类隐藏页的方法

Delphi android device information

Delphi 循环 low high 用法

Delphi 在瑞星2010全保护下创建文件夹

Delphi修改默认打印机

Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)

Delphi 上次访问该文件的时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取当前输入法