大家知道，DELPHI许多控件有IME属性。这么好用的东西VC可没自带，怎么办呢？其实，可通过注册表，用API实现。下面说一下本人对IME的研究结果，并提供示例工程供大家参考:
下载示例工程 10.6K http://www.vckbase.com/vckbase/vckbase11/vc/nonctrls/system_30/MyIME2.zip
本文示例程序运行结果如上图
1、将用到的API
RegOpenKey：打开注册表一键
RegQueryValue：查询一键值
RegQueryValueEx：同上
RegCloseKey：关闭打开的键
LoadKeyboardLayout：装载输入法
ActivateKeyboardLayout：激活输入法
2、IME信息在注册表中的位置
在HKEY_USERS:".DEFAULT\keyboard layout\preload"放的是已安装的输入法，下有几个以数字为名的子键，内容是输入法代号(keyboard layout)，如"e0040804",其中左4位是设备代码(device identifier)，右4位是语言代码(language identifier)。例如上面：左e004指智能ABC,右0804指大陆中文。(详见MSDN)
在HKEY_LOCAL_MACHINE:"System\CurrentControlSet\Control\Keyboard Layouts\"放的是已注册的输入法。他的子键名为输入法代号(keyboard layout)，内容为该输入法的ime文件，名称等信息。
3、主要思路
我们可先把已装的输入法枚举出来(从注册表)，用户选择其一后，再激活该输入法。
两关键函数：
HKL LoadKeyboardLayout(LPCTSTR pwszKLID,UINT Flags);
第一个参数是待打开的输入法代号，如"e0040804"(智能ABC);
第二个参数是标志位，如KLF_ACTIVATE(激活)。
HKL ActivateKeyboardLayout(HKL hkl,UINT Flags);
第一个参数是打开的输入法句柄(由LoadKeyboardLayout返回);
第二个参数是标志位，如KLF_SETFORPROCESS。(详见MSDN)
4、例子程序
新建一基于对话框的工程，加入一combobox控件，增加控制变量m_cb1。加入一edit控件，增加控制变量m_edt1.对combobox,增加对CBN_SELCHANGE的映射函数OnSelchangeCombo1()。对edit1，增加对EN_SETFOCUOS的SetfocusEdit1().在对话框类头文件的public:下加入数组声明：CString lst[10];
在OnInitDialog()的return前加如下代码： HKEY hk,hk1;
long cp=16;
char lp[15];
char a[2];
a[0]='1';
a[1]='\0';
CString str,str1;
str=".DEFAULT\\keyboard layout\\preload\\";//已装的输入法。注：win2000有所不同
str+=a;
int i=0;
while(::RegOpenKey(HKEY_USERS,str,&hk)==ERROR_SUCCESS)//打开键
{
a[0]++;//下一子键
str=".DEFAULT\\keyboard layout\\preload\\";
str+=a;
if(::RegQueryValue(hk,NULL,lp,&cp)!=ERROR_SUCCESS)//已装的输入法
MessageBox("Error");
::RegEnumKeyEx
str1="System\\CurrentControlSet\\Control\\Keyboard Layouts\\";//keyboardlayoutLayout
str1+=lp;
lst[i++]=lp;
//打开对应的keyboardlayoutLayout
if(RegOpenKey(HKEY_LOCAL_MACHINE,str1,&hk1)==ERROR_SUCCESS)
{
LPBYTE lpD=new BYTE[80];//DataValue
DWORD lpT=REG_SZ;//DataType
DWORD lpS=80; //DataSize
if(RegQueryValueEx(hk1,"Layout text",NULL,&lpT,lpD,&lpS)!=ERROR_SUCCESS)
MessageBox("Query error",(LPCTSTR)lpD);
m_cb1.AddString((LPCTSTR)lpD);
delete lpD;
}
else MessageBox("open error");
RegCloseKey(hk1);
}
::RegCloseKey(hk);
m_cb1.SetCurSel(0);
在OnSetfocusEdit1()加入如下代码： CString temp;
temp=m_cb1.GetCurSel()!=CB_ERR?lst[m_cb1.GetCurSel()]:"00000409";
HKL hkl;
hkl=LoadKeyboardLayout(temp,KLF_ACTIVATE);//装载输入法
if(hkl==NULL) OnOK();
ActivateKeyboardLayout(hkl,KLF_SETFORPROCESS);//激活输入法
在OnSelchangeCombo1()加入如下代码： m_edt1.SetFocus();
即可编译运行。
5、注意：win2000下有所不同。注册表HKEY_USERS:".DEFAULT\keyboard layout\preload没有子键只有以数字为名的项，值为输入法代号(keyboard layout)。在示例代码中不仅提供了WIN 9X下的代码，也提供了2000下的相应代码段，具体请参考示例工程。
