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;