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 获取网卡物理地址之内存获取方式函数源码

Delphi free和freeandnil之间的区别

Delphi捕捉屏幕

Delphi tanimate组件

Delphi 简单的旋转图像角度代码

Delphi中使用tpathanimation

Delphi xe6 for android 让手机震动

Delphi 长文件路径转换短文件路径

Delphi编解码js字符串

Delphi yesterday、today、tomorrow - 昨天、今天、明天

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...