开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 输入法编程 > 查看源码
Init.pas
资源名称：Wingb_Mz.rar　[点击查看]
上传用户：wen198501
上传日期：2013-04-01
资源大小：335k
文件大小：18k
源码类别：

输入法编程

开发平台：

Delphi

Init.pas：源码内容
  2.  {******************************************************}
  3.  {                                                      }
  4.  {    Copyright (c) 1990-1999 Microsoft Corporation     }
  5.  {                                                      }
  6.  {    Module Name:  Init.c  ->>  Init.pas               }
  7.  {                                                      }
  8.  {    Translator:  Liu_mazi@126.com, 2005-11-13         }
  9.  {                                                      }
  10.  {******************************************************}
  12. unit Init;
  14. {$I Define.Inc}
  16. interface
  18. uses Windows;
  20. procedure ImeInit(fdwReason: DWord); // DLL 回调
  21. procedure InitCandUIData(cxBorder, cyBorder, uiMode: Integer); // 初始化 Cand 数据
  23. implementation
  25. uses ImmDev, ImeDefs, Data, DDIS, Ui, Uisubs, Candui, Compui, Statusui, LogText;
  27.   // 初始化 Status 数据
  28. procedure InitStatusUIData(cxBorder, cyBorder: Integer);
  29. var
  30.   iContentHi: Integer;
  31. begin
  32.   // iContentHi is to get the maximum value of predefined STATUS_DIM_Y and a real Chinese character's height in the current HDC.
  33.   iContentHi := STATUS_DIM_Y;
  34.   if (iContentHi < sImeG.yChiCharHi) then iContentHi := sImeG.yChiCharHi;
  36.   // right bottom of status
  37.   sImeG.rcStatusText.Left := 0;
  38.   sImeG.rcStatusText.Top := 0;
  40.   sImeG.rcStatusText.Right := sImeG.rcStatusText.Left + lStrLen(szImeName) * sImeG.xChiCharWi div 2 + STATUS_NAME_MARGIN + STATUS_DIM_X * 4;
  41.   sImeG.rcStatusText.Bottom := sImeG.rcStatusText.Top + iContentHi;
  43.   sImeG.xStatusWi := STATUS_DIM_X * 4 + STATUS_NAME_MARGIN + lStrLen(szImeName) * sImeG.xChiCharWi div 2 + 6 * cxBorder;
  44.   sImeG.yStatusHi := iContentHi + 6 * cxBorder;
  46.   // left bottom of imeicon bar
  47.   sImeG.rcImeIcon.Left := sImeG.rcStatusText.Left;
  48.   sImeG.rcImeIcon.Top := sImeG.rcStatusText.Top;
  49.   sImeG.rcImeIcon.Right := sImeG.rcImeIcon.Left + STATUS_DIM_X;
  50.   sImeG.rcImeIcon.Bottom := sImeG.rcImeIcon.Top + iContentHi;
  52.   // left bottom of imename bar
  53.   sImeG.rcImeName.Left := sImeG.rcImeIcon.Right;
  54.   sImeG.rcImeName.Top := sImeG.rcStatusText.Top;
  55.   sImeG.rcImeName.Right := sImeG.rcImeName.Left + lStrLen(szImeName) * sImeG.xChiCharWi div 2 + STATUS_NAME_MARGIN;
  56.   sImeG.rcImeName.Bottom := sImeG.rcImeName.Top + iContentHi;
  58.   // middle bottom of Shape bar
  59.   sImeG.rcShapeText.Left := sImeG.rcImeName.Right;
  60.   sImeG.rcShapeText.Top := sImeG.rcStatusText.Top;
  61.   sImeG.rcShapeText.Right := sImeG.rcShapeText.Left + STATUS_DIM_X;
  62.   sImeG.rcShapeText.Bottom := sImeG.rcShapeText.Top + iContentHi;
  64.   // middle bottom of Symbol bar
  65.   sImeG.rcSymbol.Left := sImeG.rcShapeText.Right;
  66.   sImeG.rcSymbol.Top := sImeG.rcStatusText.Top;
  67.   sImeG.rcSymbol.Right := sImeG.rcSymbol.Left + STATUS_DIM_X;
  68.   sImeG.rcSymbol.Bottom := sImeG.rcSymbol.Top + iContentHi;
  70.   // right bottom of SK bar
  71.   sImeG.rcSKText.Left := sImeG.rcSymbol.Right;
  72.   sImeG.rcSKText.Top := sImeG.rcStatusText.Top;
  73.   sImeG.rcSKText.Right := sImeG.rcSKText.Left + STATUS_DIM_X;
  74.   sImeG.rcSKText.Bottom := sImeG.rcSKText.Top + iContentHi;
  75. end;
  77.   // 初始化 Candidates 数据
  78. procedure InitCandUIData(cxBorder, cyBorder, uiMode: Integer);
  79. var
  80.   iContentHi: Integer;
  81. begin
  82.   // iContentHi is to get the maximum value of predefined COMP_TEXT_Y and a real Chinese character's height in the current HDC.
  83.   iContentHi := COMP_TEXT_Y;
  84.   if (iContentHi < sImeG.yChiCharHi) then iContentHi := sImeG.yChiCharHi;
  86.   sImeG.cxCandBorder := cxBorder * 2;
  87.   sImeG.cyCandBorder := cyBorder * 2;
  89.   // Candidates 界面风格 (单行长条/多行方框)
  90.   if (uiMode = LIN_UI) then
  91.   begin
  92.     sImeG.rcCandIcon.Left := 0;
  93.     sImeG.rcCandIcon.Top := cyBorder + 2;
  94.     sImeG.rcCandIcon.Right := sImeG.rcCandIcon.Left + UI_CANDICON;
  95.     sImeG.rcCandIcon.Bottom := sImeG.rcCandIcon.Top + UI_CANDICON;
  97.     sImeG.rcCandText.Left := sImeG.rcCandIcon.Right + 3;
  98.     sImeG.rcCandText.Top :=  cyBorder;
  99.     sImeG.rcCandText.Right := sImeG.rcCandText.Left + UI_CANDSTR;
  100.     sImeG.rcCandText.Bottom := sImeG.rcCandText.Top + iContentHi;
  102.     sImeG.rcCandBTH.Top := cyBorder * 4;
  103.     sImeG.rcCandBTH.Left := sImeG.rcCandText.Right + 5;
  104.     sImeG.rcCandBTH.Right := sImeG.rcCandBTH.Left + UI_CANDBTW;
  105.     sImeG.rcCandBTH.Bottom := sImeG.rcCandBTH.Top + UI_CANDBTH;
  107.     sImeG.rcCandBTU.Top := cyBorder * 4;
  108.     sImeG.rcCandBTU.Left := sImeG.rcCandBTH.Right;
  109.     sImeG.rcCandBTU.Right := sImeG.rcCandBTU.Left + UI_CANDBTW;
  110.     sImeG.rcCandBTU.Bottom := sImeG.rcCandBTU.Top + UI_CANDBTH;
  112.     sImeG.rcCandBTD.Top := cyBorder * 4;
  113.     sImeG.rcCandBTD.Left := sImeG.rcCandBTU.Right;
  114.     sImeG.rcCandBTD.Right := sImeG.rcCandBTD.Left + UI_CANDBTW;
  115.     sImeG.rcCandBTD.Bottom := sImeG.rcCandBTD.Top + UI_CANDBTH;
  117.     sImeG.rcCandBTE.Top := cyBorder * 4;
  118.     sImeG.rcCandBTE.Left := sImeG.rcCandBTD.Right;
  119.     sImeG.rcCandBTE.Right := sImeG.rcCandBTE.Left + UI_CANDBTW;
  120.     sImeG.rcCandBTE.Bottom := sImeG.rcCandBTE.Top + UI_CANDBTH;
  122.     sImeG.xCandWi := sImeG.rcCandBTE.Right + sImeG.cxCandBorder * 2 + cxBorder * 4;
  123.     sImeG.yCandHi := sImeG.rcCandText.Bottom + sImeG.cyCandBorder * 2 + cyBorder * 4;
  124.   end else
  125.   begin
  126.     sImeG.rcCandText.Left := cxBorder;
  127.     sImeG.rcCandText.Top := 2 * cyBorder + UI_CANDINF;
  128.     if (sImeG.xChiCharWi * 9 > (UI_CANDICON * 6 + UI_CANDBTH * 4)) then
  129.       sImeG.rcCandText.Right := sImeG.rcCandText.Left + sImeG.xChiCharWi * 9
  130.     else
  131.       sImeG.rcCandText.Right := sImeG.rcCandText.Left + (UI_CANDICON * 6 + UI_CANDBTH * 4);
  132.     sImeG.rcCandText.Bottom := sImeG.rcCandText.Top + sImeG.yChiCharHi * CANDPERPAGE;
  134.     sImeG.xCandWi := sImeG.rcCandText.Right + sImeG.cxCandBorder * 2 + cxBorder * 4;
  135.     sImeG.yCandHi := sImeG.rcCandText.Bottom + sImeG.cyCandBorder * 2 + cyBorder * 4;
  137.     sImeG.rcCandIcon.Left := cxBorder;
  138.     sImeG.rcCandIcon.Top := cyBorder + 2;
  139.     sImeG.rcCandIcon.Right := sImeG.rcCandIcon.Left + UI_CANDICON;
  140.     sImeG.rcCandIcon.Bottom := sImeG.rcCandIcon.Top + UI_CANDICON;
  142.     sImeG.rcCandInf.Left := sImeG.rcCandIcon.Right;
  143.     sImeG.rcCandInf.Top := cyBorder + 3;
  144.     sImeG.rcCandInf.Right := sImeG.rcCandInf.Left + UI_CANDICON * 5;
  145.     sImeG.rcCandInf.Bottom := sImeG.rcCandInf.Top + UI_CANDBTH;
  147.     sImeG.rcCandBTE.Top := cyBorder * 5;
  148.     sImeG.rcCandBTE.Right := sImeG.rcCandText.Right + cxBorder;
  149.     sImeG.rcCandBTE.Bottom := sImeG.rcCandBTE.Top + UI_CANDBTH;
  150.     sImeG.rcCandBTE.Left := sImeG.rcCandBTE.Right - UI_CANDBTW;
  152.     sImeG.rcCandBTD.Top := cyBorder * 5;
  153.     sImeG.rcCandBTD.Right := sImeG.rcCandBTE.Left;
  154.     sImeG.rcCandBTD.Bottom := sImeG.rcCandBTD.Top + UI_CANDBTH;
  155.     sImeG.rcCandBTD.Left := sImeG.rcCandBTD.Right - UI_CANDBTW;
  157.     sImeG.rcCandBTU.Top := cyBorder * 5;
  158.     sImeG.rcCandBTU.Right := sImeG.rcCandBTD.Left;
  159.     sImeG.rcCandBTU.Bottom := sImeG.rcCandBTU.Top + UI_CANDBTH;
  160.     sImeG.rcCandBTU.Left := sImeG.rcCandBTU.Right - UI_CANDBTW;
  162.     sImeG.rcCandBTH.Top := cyBorder * 5;
  163.     sImeG.rcCandBTH.Right := sImeG.rcCandBTU.Left;
  164.     sImeG.rcCandBTH.Bottom := sImeG.rcCandBTH.Top + UI_CANDBTH;
  165.     sImeG.rcCandBTH.Left := sImeG.rcCandBTH.Right - UI_CANDBTW;
  166.   end;
  167. end;
  169.   // 初始化全局数据
  170. procedure InitImeGlobalData();
  171. var
  172.   cxBorder, cyBorder: Integer;
  173.   ui_Mode: Integer;
  174.   _hDC: hDC;
  175.   hOldFont: hGdiObj;
  176.   lfFont: TLogFont;
  177.   szChiChar: array[0..4] of Char;
  178.   lTextSize: TSize;
  179.   hResData: hGlobal;
  180.   dwSize: DWord;
  181.   hKeyIMESetting: hKey;
  182.   lRet: DWord;
  183. begin
  184.   // get the Ime Reg Name
  185.   LoadString(HInstance, IDS_IMEREGNAME, szImeRegName, MAX_PATH);
  187.   // get the Ime Name
  188.   LoadString(HInstance, IDS_IMENAME_QW, szImeName, MAX_PATH);
  190.   // get the UI class name
  191.   LoadString(HInstance, IDS_IMEUICLASS, szUIClassName, CLASS_LEN);
  193.   // get the composition class name
  194.   LoadString(HInstance, IDS_IMECOMPCLASS, szCompClassName, CLASS_LEN);
  196.   // get the candidate class name
  197.   LoadString(HInstance, IDS_IMECANDCLASS, szCandClassName, CLASS_LEN);
  199.   // get the status class name
  200.   LoadString(HInstance, IDS_IMESTATUSCLASS, szStatusClassName, CLASS_LEN);
  202.   // get the ContextMenu class name
  203.   LoadString(HInstance, IDS_IMECMENUCLASS, szCMenuClassName, CLASS_LEN);
  205.   // get the softkeyboard Menu class name
  206.   LoadString(HInstance, IDS_IMESOFTKEYMENUCLASS, szSoftkeyMenuClassName, CLASS_LEN);
  208.   // work area
  209.   SystemParametersInfo(SPI_GETWORKAREA, 0, @sImeG.rcWorkArea, 0);
  211.   // border
  212.   cxBorder := GetSystemMetrics(SM_CXBORDER);
  213.   cyBorder := GetSystemMetrics(SM_CYBORDER);
  215.   // get the Chinese char
  216.   LoadString(HInstance, IDS_CHICHAR, szChiChar, SizeOf(szChiChar));
  218.   // init ime charact
  219.   lStrCpy(sImeG.UsedCodes, '0123456789abcdef');
  220.   sImeG.wNumCodes := lStrLen(sImeG.UsedCodes);
  221.   sImeG.IC_Enter := 0;
  222.   sImeG.IC_Trace := 0;
  224.   // get size of Chinese char
  225.   _hDC := GetDC(0);
  227.   hOldFont := GetCurrentObject(_hDC, OBJ_FONT);
  228.   GetObject(hOldFont, SizeOf(TLogFont), @lfFont); // 未用到??
  229.   sImeG.fDiffSysCharSet := True;
  231.   ZeroMemory(@lfFont, SizeOf(TLogFont));
  232.   lfFont.lfHeight := - MulDiv(12, GetDeviceCaps(_hDC, LOGPIXELSY), 72);
  233.   lfFont.lfCharSet := NATIVE_CHARSET;
  234.   lStrCpy(lfFont.lfFaceName, '宋体');
  235.   SelectObject(_hDC, CreateFontIndirect(lfFont)); // 创建字体并选入
  237.   if (GetTextExtentPoint(_hDC, szChiChar, lStrLen(szChiChar), lTextSize) = False) then // 尺寸
  238.     ZeroMemory(@lTextSize, SizeOf(TSize));
  240.   if (sImeG.rcWorkArea.Right < 2 * UI_MARGIN) then
  241.   begin
  242.     sImeG.rcWorkArea.Left := 0;
  243.     sImeG.rcWorkArea.Right := GetDeviceCaps(_hDC, HORZRES);
  244.   end;
  246.   if (sImeG.rcWorkArea.Bottom < 2 * UI_MARGIN) then
  247.   begin
  248.     sImeG.rcWorkArea.Top := 0;
  249.     sImeG.rcWorkArea.Bottom := GetDeviceCaps(_hDC, VERTRES);
  250.   end;
  252.   if (sImeG.fDiffSysCharSet) then DeleteObject(SelectObject(_hDC, hOldFont));
  254.   ReleaseDC(0, _hDC);
  256.   // get text metrics to decide the width & height of composition window these IMEs always use system font to show
  257.   sImeG.xChiCharWi := lTextSize.cx;
  258.   sImeG.yChiCharHi := lTextSize.cy;
  260.   if (sImeG.IC_Trace <> 0) then ui_Mode := BOX_UI else ui_Mode := LIN_UI;
  262.   InitCandUIData(cxBorder, cyBorder, ui_Mode);
  263.   InitStatusUIData(cxBorder, cyBorder);
  265.   // load full ABC table
  266.   hResData := LoadResource(HInstance, FindResource(HInstance, 'FULLABC', RT_RCDATA));
  267.   PFullABC(@sImeG.wFullABC)^ := PFullABC(LockResource(hResData))^;
  268.   UnlockResource(hResData);
  269.   FreeResource(hResData);
  271.   // full shape space
  272.   sImeG.wFullSpace := sImeG.wFullABC[0];
  274.   LoadString(HInstance, IDS_STATUSERR, sImeG.szStatusErr, SizeOf(sImeG.szStatusErr));
  275.   sImeG.cbStatusErr := lStrLen(sImeG.szStatusErr);
  276.   sImeG.iCandStart := CAND_START;
  278.   // get the UI offset for near caret operation
  279.   RegCreateKey(HKEY_CURRENT_USER, szRegIMESetting, hKeyIMESetting);
  281.   dwSize := SizeOf(DWord);
  282.   lRet := RegQueryValueEx(hKeyIMESetting, szPara, nil, nil, PByte(@sImeG.iPara), @dwSize);
  283.   if (lRet <> ERROR_SUCCESS) then
  284.   begin
  285.     sImeG.iPara := 0;
  286.     RegSetValueEx(hKeyIMESetting, szPara, 0, REG_BINARY, PByte(@sImeG.iPara), SizeOf(DWord));
  287.   end;
  289.   dwSize := SizeOf(DWord);
  290.   lRet := RegQueryValueEx(hKeyIMESetting, szPerp, nil, nil, PByte(@sImeG.iPerp), @dwSize);
  291.   if (lRet <> ERROR_SUCCESS) then
  292.   begin
  293.     sImeG.iPerp := sImeG.yChiCharHi;
  294.     RegSetValueEx(hKeyIMESetting, szPerp, 0, REG_BINARY, PByte(@sImeG.iPerp), SizeOf(DWord));
  295.   end;
  297.   dwSize := SizeOf(DWord);
  298.   lRet := RegQueryValueEx(hKeyIMESetting, szParaTol, nil, nil, PByte(@sImeG.iParaTol), @dwSize);
  299.   if (lRet <> ERROR_SUCCESS) then
  300.   begin
  301.     sImeG.iParaTol := sImeG.xChiCharWi * 4;
  302.     RegSetValueEx(hKeyIMESetting, szParaTol, 0, REG_BINARY, PByte(@sImeG.iParaTol), SizeOf(DWord));
  303.   end;
  305.   dwSize := SizeOf(DWord);
  306.   lRet := RegQueryValueEx(hKeyIMESetting, szPerpTol, nil, nil, PByte(@sImeG.iPerpTol), @dwSize);
  307.   if (lRet <> ERROR_SUCCESS) then
  308.   begin
  309.     sImeG.iPerpTol := lTextSize.cy;
  310.     RegSetValueEx(hKeyIMESetting, szPerpTol, 0, REG_BINARY, PByte(@sImeG.iPerpTol), SizeOf(Integer));
  311.   end;
  313.   RegCloseKey(hKeyIMESetting);
  314. end;                                                                 
  316.   // 初始化局部数据
  317. function InitImeLocalData(): Bool;
  318. var
  319.   cxBorder, cyBorder, iContentHi: Integer;
  320. begin
  321.   // iContentHi is to get the maximum value of predefined COMP_TEXT_Y and a real Chinese character's height in the current HDC.
  322.   iContentHi := COMP_TEXT_Y;
  323.   if (iContentHi < sImeG.yChiCharHi) then iContentHi := sImeG.yChiCharHi;
  325.   sImeL.nMaxKey := 4;
  327.   // border + raising edge + sunken edge
  328.   cxBorder := GetSystemMetrics(SM_CXBORDER);
  329.   cyBorder := GetSystemMetrics(SM_CYBORDER);
  331.   // text position relative to the composition window
  332.   sImeL.cxCompBorder := cxBorder * 2;
  333.   sImeL.cyCompBorder := cyBorder * 2;
  335.   sImeL.rcCompText.Left := cxBorder;
  336.   sImeL.rcCompText.Top := cyBorder;
  338.   sImeL.rcCompText.Right := sImeL.rcCompText.Left + sImeG.xChiCharWi * ((sImeL.nMaxKey + 2) div 2);
  339.   sImeL.rcCompText.Bottom := sImeL.rcCompText.Top + iContentHi;
  341.   // set the width & height for composition window
  342.   sImeL.xCompWi := sImeL.rcCompText.Right + sImeL.cxCompBorder * 2 + cxBorder * 4;
  343.   sImeL.yCompHi := sImeL.rcCompText.Bottom + sImeL.cyCompBorder * 2 + cyBorder * 4;
  345.   // default position of composition window
  346.   sImeL.ptDefComp.x := sImeG.rcWorkArea.Right - sImeL.xCompWi - cxBorder * 2;
  347.   sImeL.ptDefComp.y := sImeG.rcWorkArea.Bottom - sImeL.yCompHi - cyBorder * 2;
  349.   sImeL.fModeConfig := MODE_CONFIG_QUICK_KEY or MODE_CONFIG_PREDICT;
  351.   Result := False;
  352. end;
  354.   // Ime 注册表访问
  355. procedure RegisterIme();
  356. var
  357.   hKeyCurrVersion, hKeyGB: hKey;
  358.   retCode, ValueType, ValueSize, dwDisposition, Value: DWord;
  359. //  Buf: array[0..LINE_LEN] of Char;
  360. begin
  361.   retCode := OpenReg_PathSetup(@hKeyCurrVersion);
  362.   if (retCode <> ERROR_SUCCESS) then RegCreateKey(HKEY_CURRENT_USER, REGSTR_PATH_SETUP, hKeyCurrVersion);
  364.   retCode := OpenReg_User(hKeyCurrVersion, szImeRegName, @hKeyGB);
  365.   if (retCode <> ERROR_SUCCESS) then
  366.   begin
  367.     RegCreateKeyEx(hKeyCurrVersion, szImeRegName, 0, nil,
  368.       REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, hKeyGB, @dwDisposition);
  370.     Value := 1;
  371.     RegSetValueEx(hKeyGB, szTrace, 0, REG_DWORD, PByte(@Value), SizeOf(DWord));
  372.   end;
  374.   ValueSize := SizeOf(DWord);
  375.   if (RegQueryValueEx(hKeyGB, szTrace, nil, PDWord(@ValueType), PByte(@sImeG.IC_Trace), @ValueSize) <> ERROR_SUCCESS) then
  376.   begin
  377.     Value := 1;
  378.     RegSetValueEx(hKeyGB, szTrace, 0, REG_DWORD, PByte(@Value), SizeOf(DWord));
  379.     RegQueryValueEx(hKeyGB, szTrace, nil, PDWord(@ValueType), PByte(@sImeG.IC_Trace), @ValueSize);
  380.   end;
  382.   RegCloseKey(hKeyGB);
  383.   RegCloseKey(hKeyCurrVersion);
  384. end;
  386.   // 注册 Ime 窗口类
  387. procedure RegisterImeClass();
  388. var
  389.   wcWndCls: TWndClassEx;
  390. begin
  391.   // IME UI class
  392.   // Register IME UI class
  393.   wcWndCls.cbSize        := SizeOf(TWndClassEx);
  394.   wcWndCls.cbClsExtra    := 0;
  395.   wcWndCls.cbWndExtra    := SizeOf(DWord) * 2; // **
  396.   wcWndCls.hIcon         := LoadImage(HInstance, MakeIntResource(IDI_IME), IMAGE_ICON, 32, 32, LR_DEFAULTCOLOR);
  397.   wcWndCls.hInstance     := HInstance;
  398.   wcWndCls.hCursor       := LoadCursor(0, IDC_ARROW);
  399.   wcWndCls.hbrBackground := GetStockObject(NULL_BRUSH);
  400.   wcWndCls.lpszMenuName  := nil;
  401.   wcWndCls.hIconSm       := LoadImage(HInstance, MakeIntResource(IDI_IME), IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR);
  403.   // IME UI class
  404.   if (GetClassInfoEx(HInstance, szUIClassName, wcWndCls) = False) then
  405.   begin
  406.     wcWndCls.style         := CS_IME;
  407.     wcWndCls.lpfnWndProc   := @UIWndProc;
  408.     wcWndCls.lpszClassName := szUIClassName;
  410.     RegisterClassEx(wcWndCls);
  411.   end;
  413.   // **
  414.   wcWndCls.style         := CS_IME or CS_HREDRAW or CS_VREDRAW;
  415.   wcWndCls.hbrBackground := GetStockObject(LTGRAY_BRUSH);
  417.   // IME composition class
  418.   // register IME composition class
  419.   if (GetClassInfoEx(HInstance, szCompClassName, wcWndCls) = False) then
  420.   begin
  421.     wcWndCls.lpfnWndProc   := @CompWndProc;
  422.     wcWndCls.lpszClassName := szCompClassName;
  424.     RegisterClassEx(wcWndCls);
  425.   end;
  427.   // IME candidate class
  428.   // register IME candidate class
  429.   if (GetClassInfoEx(HInstance, szCandClassName, wcWndCls) = False) then
  430.   begin
  431.     wcWndCls.lpfnWndProc   := @CandWndProc;
  432.     wcWndCls.lpszClassName := szCandClassName;
  434.     RegisterClassEx(wcWndCls);
  435.   end;
  437.   // IME status class
  438.   // register IME status class
  439.   if (GetClassInfoEx(HInstance, szStatusClassName, wcWndCls) = False) then
  440.   begin
  441.     wcWndCls.lpfnWndProc   := @StatusWndProc;
  442.     wcWndCls.lpszClassName := szStatusClassName;
  444.     RegisterClassEx(wcWndCls);
  445.   end;
  447.   // IME context menu class
  448.   if (GetClassInfoEx(HInstance, szCMenuClassName, wcWndCls) = False) then
  449.   begin
  450.     wcWndCls.style         := 0;
  451.     wcWndCls.hbrBackground := GetStockObject(NULL_BRUSH);
  452.     wcWndCls.lpfnWndProc   := @ContextMenuWndProc;
  453.     wcWndCls.lpszClassName := szCMenuClassName;
  455.     RegisterClassEx(wcWndCls);
  456.   end;
  458.   // IME softkeyboard menu class
  459.   if (GetClassInfoEx(hInstance, szSoftkeyMenuClassName, wcWndCls) = False) then
  460.   begin
  461.     wcWndCls.style         := 0;
  462.     wcWndCls.hbrBackground := GetStockObject(NULL_BRUSH);
  463.     wcWndCls.lpfnWndProc   := @SoftkeyMenuWndProc;
  464.     wcWndCls.lpszClassName := szSoftkeyMenuClassName;
  466.     RegisterClassEx(wcWndCls);
  467.   end;
  468. end;
  470.   // 注销 Ime 窗口类
  471. procedure UnregisterImeClass();
  472. var
  473.   wcWndCls: TWndClassEx;
  474. begin
  475.   if GetClassInfoEx(HInstance, szCMenuClassName, wcWndCls) then
  476.     UnregisterClass(szCMenuClassName, HInstance);
  478.   if GetClassInfoEx(HInstance, szSoftkeyMenuClassName, wcWndCls) then
  479.     UnregisterClass(szSoftkeyMenuClassName, HInstance);
  481.   if GetClassInfoEx(HInstance, szStatusClassName, wcWndCls) then
  482.     UnregisterClass(szStatusClassName, HInstance);
  484.   if GetClassInfoEx(HInstance, szCandClassName, wcWndCls) then
  485.     UnregisterClass(szCandClassName, HInstance);
  487.   if GetClassInfoEx(HInstance, szCompClassName, wcWndCls) then
  488.     UnregisterClass(szCompClassName, HInstance);
  490.   if GetClassInfoEx(HInstance, szUIClassName, wcWndCls) then
  491.     if UnregisterClass(szUIClassName, HInstance) then
  492.     begin
  493.       DestroyIcon(wcWndCls.hIcon);
  494.       DestroyIcon(wcWndCls.hIconSm);
  495.     end;
  496. end;
  498.   // DLL 回调
  499. procedure ImeInit(fdwReason: DWord);
  500. begin
  501.   case (fdwReason) of
  502.     DLL_PROCESS_ATTACH: // 进入进程空间
  503.     begin
  504.       InitImeGlobalData();
  505.       InitImeLocalData();
  506.       RegisterImeClass();
  507.       RegisterIme();      
  508.     end;
  510.     DLL_PROCESS_DETACH: // 退出进程空间
  511.     begin
  512.       UnregisterImeClass();
  513.     end;
  514.   end;
  515. end;
  517. end.