老兄,可不可以指点一二我好急啊,而对输入法的API有看不懂

解决方案 »

  1.   

    pazee(耙子)说得很对,好象只有这一种办法可以实现,如果找不到这种码表就只能自己写了
      

  2.   

    (* -------------------------------------------------- *)
    (* Chien's IME Tool Library
    (* ========================
    (* 环境需求:
    (*   Windows 95 中文版 + Delphi 2
    (*
    (* Updated on 1996.11.12
    (*
    (* 特别声明: 本单元可以免费自由应用与散播, 条件如下:
    (*   1. 请发一封 E-Mail 给我, 以便日后版本修订时能通知到您
    (*   2. 由于是免费的单元且原始程序已公开, 所以我并不负担您
    (*      程序除错维护或资料损失的任何责任.
    (*
    (* 作者: 钱达智(Wolfgang Chien)
    (* E-Mail: [email protected]
    (* -------------------------------------------------- *)
    unit IME95;
    // 这些函式, 我通常是在 Edit 的 OnDblClick 事件中呼叫测试interfaceuses
      Windows, Messages, SysUtils, IMM,
      Classes, Graphics, Controls, Forms;
    // 请注意, IMM.PAS 必须置于与本单元同一目录或
    // 主选单 Tools | Options | Library Path 中的任一个目录
    // IMM.PAS 可在 Delphi 2.0 的 Source\Rtl\Win 目录中找到const
      nHKL_LIST         = 20;type
      TImeUIWindow = class(TCustomControl)
      private
        procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
      protected
        procedure CreateParams(var Params: TCreateParams); override;
        procedure Paint; override;
      public
        constructor Create(AOwner: TComponent); override;
        procedure ShowComposition(ptWhere: TPoint; const sHint: string); virtual;
        // function IsHintMsg(var Msg: TMsg): Boolean; virtual;
        // procedure ReleaseHandle;
        property Caption;
        property Canvas;
        property Color;
      end;// 显示某一输入法的设定对话盒
    function ShowIMEConfigDialog(hKB: HKL): BOOL; far;// 指定某一窗口的中英输入模式
    procedure ToChinese(hWindows: THandle; bChinese: boolean); far;// 下一个输入法(等于仿真预设的 Ctrl + Shift)
    procedure NextIME; far;// 侦测目前作用中的输入法文件名称
    function GetImeFileName: string; far;// 切换到指定的输入法
    function SetActivateIme(sWanted: string): boolean; far;// 切断到中文输入法, 同时指定全/半角
    function ImeFullShape(hWindow: HWND; bToFullShape: BOOL): BOOL; far;// 送入一段字符串到指定的窗口
    procedure SendDBCSString(hFocus: HWND; const sSend: string); far;// 取得目前的拆字字根
    function GetImeCompositonString(hWindow: HWND): string; far;// 取得目前的拆字结果
    function GetImeCompositonResult(hWindow: HWND): string; far;// 取消某次的组字过程
    procedure CancelComposition(hWindow: THandle); far;// 设定组字字根
    procedure SetImeCompositonString(hWindow: THandle; const sCompStr: string); far;// 显示/不显示屏幕小键盘
    function ShowSoftKeyboard(hWindow: HWND; bShowIt: BOOL): BOOL; far;// 要不要相关字词功能
    function PhrasePredict(hWindow: HWND; bPredict: BOOL): BOOL; far;// 查询某字的组字字根
    function QueryCompStr(hKB: HKL; const sChinese: AnsiString): string; far;// --------------------------------------------------
    // --------------------------------------------------
    implementation
      

  3.   

    to shuixin13(犬犬(心帆)) :
      
       小弟看不懂,可不可以解释一下再次谢了