Typhon开发,关闭中文输入法

uses
  ...    ,imm;    

type
  ...
    Memo1: TMemo; 

procedure Tdemo_Form.FormShow(Sender: TObject);

 var
    himc_handle:HIMC ;
begin
   himc_handle := 0;
   Memo1.SetFocus;


  himc_handle := ImmGetContext(Memo1.Handle) ;
  if himc_handle <> 0 then
    begin
        ImmAssociateContext(Memo1.Handle,0);
        ImmReleaseContext(Memo1.Handle,himc_handle);
    end;


end;