Delphi获取和设置汉字输入法.rar

Delphi获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码：　　procedureTForm1.closecid;　　var　　mycid:hkl;　　begin　　mycid:=GetKeyBoardLayOut(0);　　ifImmIsIME(mycid)then　　//判断是否在中文状态,若是则关闭它　　immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);　　end;　　procedureTForm1.FormShow(Sender: