TSF输入法列表获取

TSF：

Microsoft Windows 文本服务框架(TSF) 是一个包含在Windows XP 及其后继版本操作系统的系统服务。TSF为高级文本输入的通信以及自然语言技术提供了一个简单的可扩展的框架。

以上引自百度百科。

引用Winapi.MsCTF单元，如果没有去高版本XE里面搜一搜，或者百度一下。

procedure TForm1.btnSTFClick(Sender: TObject);
var
  profiles: PPTfInputProcessorProfiles;
  Iprofiles: ITfInputProcessorProfiles;
  plangid: Word;
  enumerator: IEnumTfLanguageProfiles;
  langProfile: TF_LANGUAGEPROFILE;
  FetchedItems: Cardinal;
  pbstrProfile: WideString;
  pfEnable: Integer;
begin
  if not IsMSCTFAvailable() then
    Exit;

  if (TF_CreateInputProcessorProfiles(profiles) = (S_OK) then
  begin
    Iprofiles := ITfInputProcessorProfiles(profiles^);
    Iprofiles.GetCurrentLanguage(plangid);
    Memo1.Lines.Add(IntToStr(plangid));

    if plangid > -1 then
    begin
      Iprofiles.EnumLanguageProfiles(plangid, enumerator);

      if Assigned(enumerator) then
      begin
        enumerator.Next(1, langProfile, FetchedItems);
        while FetchedItems > 0 do
        begin
          //          Memo1.Lines.Add(langProfile.clsid.ToString());
          //          Memo1.Lines.Add(langProfile.langid.ToString());
          //          Memo1.Lines.Add(langProfile.fActive.ToString());  // -1时为当前激活输入法

          pbstrProfile := '';
          if Iprofiles.GetLanguageProfileDescription(langProfile.clsid, langProfile.langid, langProfile.guidProfile, pbstrProfile) = S_OK then
          begin
            //Memo1.Lines.Add(pbstrProfile);
            if Iprofiles.IsEnabledLanguageProfile(langProfile.clsid, langProfile.langid, langProfile.guidProfile, pfEnable) = S_OK then
            begin
              if pfEnable = 1 then
              begin
                //显示TSF输入法名称
                Memo1.Lines.Add(pbstrProfile);

                //激活指定输入法（clsid、 guidProfile为空时，取消激活）
                if pbstrProfile = '微软ABC' then
                  Iprofiles.ActivateLanguageProfile(langProfile.clsid, langProfile.langid, langProfile.guidProfile);
              end;
            end;  
          end;

          enumerator.Next(1, langProfile, FetchedItems);
        end;
      end;

    end;

  end;

end;