如何得到当前打开的输入法?(200分)

LiGen · 2002-10-22

在很多软件中,软件能够记住打开的输入法,它的所有界面都使用同一 个输入法(用户打开的,不是程序首先设计的)比如word,wps,excel及delphi等等. 他们是怎样在程序运行后得到输入法,并把他记住.高分求教,不够可以加.

zw84611 · 2002-10-22

少爷的拐杖 (2002-4-26 23:56:00)   //摘录我程序中的一些段落您看看 //列出机器中所有的输入法 procedure TFm_ImeSet.FormCreate(Sender: TObject); var i,Loop:Integer; ListItem: TListItem; begin Loop:=Screen.Imes.Count; for i:=1 to Loop do  begin   ListItem := ListView1.Items.Add;   ListItem.Caption := Screen.Imes.Strings[i-1];  end; end; //保存用户设定的输入法 procedure TFm_ImeSet.SpeedButton2Click(Sender: TObject); var AppINI:TIniFile; begin try try AppINI:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'AppSys/login.dll'); AppINI.WriteString('UserIme', 'UserIme', ListView1.Selected.Caption); Form1.User_IME:= ListView1.Selected.Caption; except Application.MessageBox('保存设置时发生了一个错误，您的改动无法保存下来。','保存失败',Mb_Ok+Mb_Iconinformation); end; finally AppINI.Free; Close; end; end; //调用设置的输入法 Procedure TFm_Cable_Experiment.Set_Ime; var i:integer; begin for i:=ComponentCount-1 DownTo 0 do   begin   if Components.Tag=2 then     if (Components is TEdit) then     (Components as TEdit).ImeName:=Form1.User_Ime;     if (Components is TCombobox) then     (Components as TCombobox).ImeName:=Form1.User_Ime;   end; end;

louhong · 2002-10-22

好象还少了取当前输入法名称这一环节，补上： 先定义： var myHKL : HKL; 执行： myHKL:=GetKeyBoardLayOut(0); for i := 0 to Screen.Imes.Count-1  do   begin     if HKL(Screen.Imes.Objects) = myHKL then       Edit2.Text := Screen.Imes.Strings;//当前输入法名称   end;

酷尔贝塔 · 2002-10-22

sanmzhou · 2002-10-24

哈哈！ 你们这样忙死了，只是给本程序设置输入法而已，如果，我要通过这个程序的运行，来设置 另一个程序的输入法呢？并且，输入处理完后，再复原输入法！

LiGen · 2002-10-24

To sanmzhou 应该怎样才好，请赐教。

chuguozhen · 2002-10-24

不知道这些代码是否对你有帮助，这本来是回答其他问题的，你参考吧，当然代码是我写的 以下代码经过测试 procedure SetMyIme(ImeName:string); var   i:integer;   HandleToSet:HKL; begin if not SysLocale.FarEast then Exit; if ImeName<>' ' then   begin     if (AnsiCompareText(ImeName,Screen.DefaultIme)<>0) and (Screen.Imes.Count<>0)     then       begin         HandletoSet:=Screen.DefaultKbLayout;         i:=Screen.Imes.IndexOf(ImeName);         if i>=0 then HandletoSet:=HKL(Screen.Imes.Objects);         ActivateKeyboardLayout(HandleToSet,KLF_ACTIVATE);       end;   end; end; procedure ResetMyIme(ImeName:string); begin   if not SysLocale.FarEast then Exit;   if ImeName<>' ' then   begin     if (AnsiCompareText(ImeName,Screen.DefaultIme)<>0) then     ActivateKeyboardLayout(Screen.DefaultKbLayout,KLF_ACTIVATE);   end; end; procedure TForm1.Memo1Click(Sender: TObject); begin SetMyIme('微软拼音输入法'); end; 在use下面你必须手工添加：IMM ActivateKeyboardLayout的帮助文件在Windows SDK里面，你自己看吧

如何得到当前打开的输入法?(200分)

LiGen

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

louhong

Unregistered / Unconfirmed

酷尔贝塔

Unregistered / Unconfirmed

sanmzhou

Unregistered / Unconfirmed

LiGen

Unregistered / Unconfirmed

chuguozhen

Unregistered / Unconfirmed

Similar threads