如何用API编写汉字输入方法安装程序？（100）(100分)

songguolong · 1999-11-22

本人想用DELPHI编制一个输入方法安装程序，不知道要用到哪些 API函数，如何用法，望各位不吝赐教！谢谢！

Jimchael Tsee · 1999-11-23

输入法的安装主要是在系统注册表中建立一些信息，用TRegistry就可以。 同时，还要有些复制文件的操作等，用FileCopy.

songguolong · 1999-11-23

Jimchael Tsee所提建议非常重要，我一直在模仿己有的汉字输入方法在注册表 中的登记信息通过手工修改注册表的办法来安装自己的输入方法，成功后将用 DELPHI做成安装程序。 所做内容如下： 1：把编译好的《大众码》的DZM.IME文件考贝到/Windows/System/目录中 2：在注册表的 HKEY_USERS/.Default/software/Microsoft/Windows/CurrentVersion/大众 中注册：     (默认) (未设置键值)     <ENTER>  (1)     <SPACE>  (0)     编码查询  0xe0210804     ... ... ... 3：在注册表的 HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Keyboard Layouts/E0210804 中注册：     (默认) (未设置键值)     IME file "DZM.IME"     Layout file "kbdus.kbd"     Layout text "大众" 但此项实验屡屡失败，望高手能具体指导。

cytown · 1999-11-23

这是自由拼音的一个注册程序, c写的. #include &lt;windows.h> #include &lt;tchar.h> #include &lt;stdio.h> #define CONVERSION_SET 0x6101 #define LAYOUTTEXT    _T("自由拼音输入法") #define LAYOUTFILE    _T("kbdus.kbd") #define LAYOUTFILENT  _T("kbdus.dll") #define IMEFILE       _T("freepy.ime") #define MAX_SIZE 200 #define MAX_SUBKEY 250 void main() { HKEY hKey,hChildKey; DWORD dwIndex; DWORD dwName,dwMaxName = 0; TCHAR szNameArr[MAX_SUBKEY][MAX_SIZE],szName[MAX_SIZE]; DWORD dwLen; TCHAR szLayoutText[MAX_SIZE]; DWORD dwData; FILETIME ft; LONG lRet; TCHAR szRegName[MAX_SIZE]; DWORD dwDisposition; DWORD dwConversionSet; WORD wCount = 0; int i; OSVERSIONINFO osVerInfo; dwIndex = 0; dwLen = MAX_SIZE; dwData = MAX_SIZE * sizeof(TCHAR); dwConversionSet = CONVERSION_SET; if ( RegOpenKeyEx(HKEY_LOCAL_MACHINE, _T("Software"), 0, KEY_READ, &hKey) != ERROR_SUCCESS ){ _ftprintf(stderr,_T("Software open error/n")); exit(1); } if( RegCreateKeyEx( hKey, _T("freepy"), 0, NULL, REG_OPTION_NON_VOLATILE , KEY_ALL_ACCESS , NULL, &hChildKey, &dwDisposition ) != ERROR_SUCCESS) { RegCloseKey(hKey); _ftprintf(stderr,_T("freepy create error/n")); exit(1); } RegSetValueEx(hChildKey, _T("ConversionSet"), 0, REG_DWORD, (LPBYTE)&dwConversionSet, sizeof(DWORD)); RegCloseKey(hChildKey); RegCloseKey(hKey); if ( RegOpenKeyEx(HKEY_LOCAL_MACHINE, _T("System//CurrentControlSet//Control//Keyboard Layouts"), 0, KEY_READ, &hKey) != ERROR_SUCCESS ){ _ftprintf(stderr,_T("Keyboard Layouts open error/n")); exit(1); } RegQueryInfoKey (hKey,NULL, NULL,NULL, &dwIndex, NULL,NULL,NULL, NULL,NULL,NULL, NULL); while( (int)dwIndex >= 0 ) { dwLen = MAX_SIZE; if((lRet = RegEnumKeyEx(hKey, dwIndex, szName, &dwLen, NULL, NULL, NULL, &ft)) == ERROR_SUCCESS || lRet == ERROR_MORE_DATA ) { _tcscpy(szNameArr[wCount++],szName); } dwIndex--; } for(i=0;i<wCount;i++) { if ( RegOpenKeyEx(hKey, szNameArr, 0, KEY_ALL_ACCESS , &hChildKey) == ERROR_SUCCESS ){ if( RegQueryValueEx( hChildKey, _T("layout text"), NULL, NULL, (LPBYTE)szLayoutText, &dwData) == ERROR_SUCCESS ){ if(!_tcsicmp(szLayoutText,LAYOUTTEXT)) { goto my_next; } _stscanf(szNameArr,_T("%lx"),&dwName); if( dwMaxName &lt; dwName ) dwMaxName = dwName; } RegCloseKey(hChildKey); } } _stprintf(szRegName,"%lx",dwMaxName + 0x10000); CharUpper(szRegName); if( RegCreateKeyEx( hKey, szRegName, 0, NULL, REG_OPTION_NON_VOLATILE , KEY_ALL_ACCESS , NULL, &hChildKey, &dwDisposition ) != ERROR_SUCCESS) { RegCloseKey(hKey); _ftprintf(stderr,_T("%s create error/n"),szRegName); exit(1); } my_next: RegSetValueEx(hChildKey, _T("IME file"), 0, REG_SZ, (LPBYTE)IMEFILE, _tcslen(IMEFILE)*sizeof(TCHAR)); osVerInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); if(GetVersionEx(&osVerInfo)) { RegSetValueEx(hChildKey, _T("layout file"), 0, REG_SZ, (osVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT) ? ((LPBYTE)LAYOUTFILENT)(LPBYTE)LAYOUTFILE), _tcslen(LAYOUTFILENT)*sizeof(TCHAR)); } else { _ftprintf(stdout,_T("get version error/n")); RegSetValueEx(hChildKey, _T("layout file"), 0, REG_SZ, (LPBYTE)LAYOUTFILE, _tcslen(LAYOUTFILE)*sizeof(TCHAR)); } RegSetValueEx(hChildKey, _T("layout text"), 0, REG_SZ, (LPBYTE)LAYOUTTEXT, _tcslen(LAYOUTTEXT)*sizeof(TCHAR)); RegCloseKey(hChildKey); RegCloseKey(hKey); _ftprintf(stdout,_T("ok/n")); return; }

Hexi · 1999-11-23

到深度历险看看。

songguolong · 1999-11-24

cytown: 你好！ 所提供程序很好，只是不知道为什么要执行 if( RegCreateKeyEx( hKey,                   ("freepy"), 0, NULL, REG_OPTION_NON_VOLATILE , KEY_ALL_ACCESS , NULL,                   &hChildKey, &dwDisposition ) != ERROR_SUCCESS) {    RegCloseKey(hKey);    _ftprintf(stderr,_T("freepy create error/n"));    exit(1); } RegSetValueEx(hChildKey, ("ConversionSet"), 0, REG_DWORD, (LPBYTE)&dwConversionSet, sizeof(DWORD)); 一段；另外，能详细说明一下程序的执行过程吗（包括输入方法的编泽准备）？

cytown · 1999-11-24

我倒!!$$$%^^^&$^$%*!$!@ 这是关键的部分呀!!! if (注册表中创建freepy键没有成功)    显示"创建错误"并退出 创建子键: conversionset

songguolong · 1999-11-26

谢谢cytown，给你加分了！

如何用API编写汉字输入方法安装程序？（100）(100分)

songguolong

Unregistered / Unconfirmed

Jimchael Tsee

Unregistered / Unconfirmed

songguolong

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

songguolong

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

songguolong

Unregistered / Unconfirmed

Similar threads