delphi 屏蔽中文输入法

#include <imm.h>

 #pragma comment(lib, "imm32.lib")


 HIMC hImc = ::ImmGetContext( m_hWnd);
 屏蔽输入法
 ::ImmAssociateContext(m_hWnd , NULL);
 ::ImmReleaseContext(m_hWnd , hImc );


 恢复输入法的代码。
 ::ImmAssociateContext(m_hWnd , hImc );

 procedure TForm1.Edit1MouseActivate(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y, HitTest: Integer;
 var MouseActivate: TMouseActivate);
 begin
 ImmAssociateContext(Edit1.Handle, 0);//uses IMM
 end;