delphi 获取当前输入法
2022-10-15 08:45:40 作者：admin
本文整理自网络，侵删。
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; 猜你喜欢
联络方式：
400-123-789
邮箱：xiachao@163.com
Q Q：12345678
微信公众号 
微信二维码
