本文整理自网络,侵删。
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 yesterday、today、tomorrow - 昨天、今天、明天
更多相关阅读请进入《Delphi》频道 >>