在DELPHI 中如何获取系统输入法

Question

在DELPHI 中如何获取系统输入法

Answer 1

for i:=0 to Screen.Imes.Count-1 do//获取系统输入法清单
    lsbxImes.Items.Add(Screen.Imes.Strings[i]);Procedure OpenIme(ImeName:string)   ;//打开指定的输入法
var
  i:Integer;
  myhkl:hkl;
begin
  if Trim(ImeName)<>'' then
  begin
    if Screen.Imes.Count<>0 then
    begin
      i:=Screen.Imes.IndexOf(ImeName);
      if i>=0 then
         myhkl:=hkl(Screen.Imes.Objects[i]);
      ActivateKeyBoardLayOut(myhkl,KLF_ACTIVATE);
    end;
  end;
end;Procedure CloseIme;//关闭输入法
var
  myhkl:hkl;
begin
  myhkl:=GetKeyBoardLayOut(0);
  if ImmIsIME(myhkl) then
    ImmsimulateHotKey(Handle,IME_cHotKey_IME_NonIME_Toggle);
end;