获取当前的输入法状态

最新推荐文章于 2023-11-01 22:43:55 发布

liuliu0103

最新推荐文章于 2023-11-01 22:43:55 发布

阅读量1w

点赞数

CC 4.0 BY-SA版权

文章标签：输入法 layout

本文链接：https://blog.csdn.net/liuliu0103/article/details/6294564

本文介绍了通过多种方法获取Windows系统下当前活动窗口的输入法状态及名称的技术细节。包括使用API函数如GetKeyboardLayout结合注册表读取、ImmGetDescription函数直接获取输入法描述等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 调用 GetKeyboardLayout 获取输入法的 HKL后, 在注册表中查找输入法名称(以记事本为例)

hWnd = WinGetHandle("classname=Notepad")

KeyStr=GetKeyboardLayout($hWnd)

KeyName=RegRead("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Keyboard Layouts/" & $KeyStr, "Layout Text")

2.调用 GetKeyboardLayout 和 ImmGetDescription 这两个函数

3.ImmGetConversionStatus(ImmGetContext(GetForegroundWindow),a,b)

4.TID := GetWindowThreadProcessID(GetForegroundWindow,@PID);
MyHkl := GetKeyBoardLayout(TID);

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;