因為有些edit是一定輸入中文的，但是並不是每個使用者的預設輸入法都是用注音或是某種特定的輸入法，所以我想知道該如何抓取預設輸入法並且切換成該輸入法

引言: 因為有些edit是一定輸入中文的，但是並不是每個使用者的預設輸入法都是用注音或是某種特定的輸入法，所以我想知道該如何抓取預設輸入法並且切換成該輸入法

edit1,edit2,,,可個別設定輸入法 ╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴．：☆﹒‧∴ ☆..．.. 發表人 - leo2568 於 2003/12/17 18:14:51

引言: 因為有些edit是一定輸入中文的，但是並不是每個使用者的預設輸入法都是用注音或是某種特定的輸入法，所以我想知道該如何抓取預設輸入法並且切換成該輸入法

看了前面的文章，有GetKeyboardLayoutList這個method可以列舉出所有的輸入法，是可以使用，就把幾個比較常用的輸入法用判斷式決定要用哪個輸入法，但是我還是好奇要要怎麼直接抓"預設的輸入法"

如果你看過dllee版主的範例 【BCB】【發表】列出所有輸入法(含語言輸入)、切換輸入法、監視目前輸入法 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37920 Windows2000下指定輸入法 http://delphi.ktop.com.tw/topic.php?topic_id=18705 ===================================================== 就再去網路查看看 delphi 寬(老師) 的看看或msdn 發表人 - ab 於 2003/12/17 18:21:39

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormShow(Sender: TObject);
begin
 ComboBox1.Items:=Screen.Imes;  //顯示目前中文輸入法種類
end;    procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.ImeName:= ComboBox1.Text;  //設定中文輸入法類型
  Edit1.SetFocus;
end;    end.     

網海無涯，學無止境!

給你一些我常用的輸入法設定, 你直接引用就可以, 但 TsysUt 是formname, 請 自行修正    

private 
    function  GetIMEList(dCombobox: TComboBox): integer;
    function  GetImeFileName: string; 
    function  SetActiveIme(sWanted: string): boolean;  
    function  SetFirstIme: boolean;
    function  SetCloseIme: boolean;
    function  SetKey2Ime(aObj: TWinControl): boolean;
....
// 取得window內所有的輸入法
function TSysUt.GetIMEList(dCombobox: TComboBox): integer;
         var iHandleCount: integer;
             pList: array[1..nHKL_LIST] of HKL;
             szImeFileName: array[0..MAX_PATH] of char;
             sImeFileName: string;
             i: integer;
begin
     // 看看是否安裝了這個輸入法
     iHandleCount:= GetKeyboardLayoutList(nHKL_LIST, pList);
     for i:= 1 to iHandleCount do begin
         ImmGetDescription(pList[i], szImeFileName, MAX_PATH);
         sImeFileName := trim(AnsiUpperCase(StrPas(szImeFileName)));
         dCombobox.Items.Add(sImeFileName);
     end;
     dCombobox.Items.Strings[0]:= '';
     result:= iHandleCount;
end;    //偵測目前作用中的輸入法檔案名稱
function TSysUT.GetImeFileName: string;
         var szImeFileName: array[0..MAX_PATH] of char;
begin
     if ImmGetDescription(GetKeyboardLayout(0), szImeFileName, MAX_PATH) <> 0 then
        result:= AnsiUpperCase(StrPas(szImeFileName))
     else result:= '';
end;    // 切換到指定的輸入法
function TSysUT.SetActiveIme(sWanted: string): boolean;
         var iHandleCount: integer;
             pList: array[1..nHKL_LIST] of HKL;
             szImeFileName: array[0..MAX_PATH] of char;
             sImeFileName: string;
             bInstalled: boolean;
             i: integer;
begin
     result:= False;
     sWanted:= AnsiUpperCase(sWanted);
     // 看看是否安裝了這個輸入法
     bInstalled:= False;
     iHandleCount:= GetKeyboardLayoutList(nHKL_LIST, pList);
     for i:= 1 to iHandleCount do begin
         ImmGetDescription(pList[i], szImeFileName, MAX_PATH);
         sImeFileName := AnsiUpperCase(StrPas(szImeFileName));
         if pos(sWanted,sImeFileName)>0 then begin
            bInstalled:= True;
            break;
         end;
     end;
     // 如果這個輸入法已安裝了, 讓那個輸入法的鍵盤分佈(KeyLayout)作用
     if bInstalled then begin
        ActivateKeyboardLayout(pList[i], 0);
        result:= True;
     end;
end;    // 切換到第一個輸入法
function TSysUT.SetFirstIme: boolean;
         var iHandleCount: integer;
             pList: array[1..nHKL_LIST] of HKL;
             szImeFileName: array[0..MAX_PATH] of char;
begin
     iHandleCount:= GetKeyboardLayoutList(nHKL_LIST, pList);
     if iHandleCount>=2 then begin
        ImmGetDescription(pList[2], szImeFileName, MAX_PATH);
        ActivateKeyboardLayout(pList[2], 0);
        result:= True;
     end
     else result:= False;
end;    // 回英數輸入法, 本輸入法假設第一組為英數
function TSysUT.SetCloseIme: boolean;
         var iHandleCount: integer;
             pList: array[1..nHKL_LIST] of HKL;
             szImeFileName: array[0..MAX_PATH] of char;
begin
     U_VarDef.ChangeIME:= SysUT.GetImeFileName;
     iHandleCount:= GetKeyboardLayoutList(nHKL_LIST, pList);
     if iHandleCount>0 then begin
        ImmGetDescription(pList[1], szImeFileName, MAX_PATH);
        ActivateKeyboardLayout(pList[1], 0);
        result:= True;
     end
     else result:= False;
end;    //模擬ctrl-space來切換中英文
function TSysUT.SetKey2Ime(aObj: TWinControl): boolean;
begin
     ImmSimulateHotKey(aObj.Handle, IME_THOTKEY_IME_NONIME_TOGGLE);
     result:= True;
end;    

// 取得window所有輸入法用法 GetIMEList(combobox1); // 切換到注音 (字串須依window不同版本所提供, 可用上述function查得 SetActiveIme('注音');

P.D 版主的粉不錯喔～佩服 < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境! 發表人 - qoo1234 於 2003/12/19 03:49:31