中文输入法的热键(100分)

delphi1 · 1999-04-20

如何得到系统安装的每个中文输入法所设置的激活热键？ 或者得到所有输入法中设置的热键？

jghuang · 1999-04-20

我觉得应该在注册表中,或者某个ini文件中能找到.

Town · 1999-04-20

在windows/inf/ime.inf中.

yanghaijun · 1999-04-20

哈，这个问题找我。 要知道WINDOWS的大部分秘密均在注册表中，一开注册表，万事大吉。 请查看/HKEY_CURRENT_USER/Control Panel/Input Method/Hot Keys 路径下，你会发现诸如：00000011、00000012等子键，每一子键代 表一种输入的热键，该子键有如下键值：     Key Modifiers   ：  用于指定功能转换键，如Alt、Shift或左Alt等                     ：  如alt，可能为 01 c0 00 00     Target IME    ：  用于指定具体的输入法，如  04 08 24 0e     Virtual Key  ：  用于指定字母键名，如3，则为  33 00 00 00     上面例子中指定了输入法04 08 24 0e的热键为alt+3。     而对于Taget IME的值，你可将其16进制值直接翻译成字符串，如 上例中的04 08 24 0e，变成e0240804，然后，你可据此进入另一个路径： /HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control/Keyboard layouts 在此路径下你会找到一个子键e0240804，找到并打开它，你可看到如下的 键值：     IME file     layout file     layout text  ：  该输入法的显示名称，如“王码五笔型”     至此一切都明白了吗，你设置“王码五笔型”的热键为ALT+3。     这里你唯一难清楚的是Key Modifiers的值的获取方法，我也没时间 试，最多你在系统中设置不同的方式以检测其不同的取值，不会很多，组合 键有：Ctrl、Alt、Shift及左键、右键五个。     祝你好运！我的答案你可满意？

jghuang · 1999-04-20

啊!中午起了一个头,现在已经答得这么全了,白忙乎了半天 嘻嘻,还留了一点.^_^ 关于Key Modifiers的值, 本人稍作分析,发现它作为一个32为二进制串,意义如下: 00000  1        1       1       1      1     000000 0000000000000000        ^        ^       ^       ^      ^       shift   ctrl     alt     左     右 1:有,0:无. 祝你好运！我的有头有尾你可满意？

delphi1 · 1999-04-20

通过API可以知道已安装的所有输入法名称和Handle，真的没有API能够得到输入法的热键吗？ yanghaijun的办法可行，只是本人比较懒，希望越简单越好。

茶叶蛋 · 1999-04-20

我只看见过这个函数,它好像是windows的系统级API,说明里头写的是仅供Control Panel 用,不知道我们能不能用起来?API的帮助里头都找不到.我是从MSDN里头找到的. Delphi的Source里头也没有定义(这倒不成其为原因).用用试试看...... BOOL WINAPI ImmGetHotKey(DWORD dwHotKeyID, LPUINT lpuModifiers,     LPUINT lpuVKey, LPHKL lphKL) Gets the value of the IME hot key. This function is called by control panel. Returns TRUE if successful, FALSE otherwise. dwHotKeyID Hot key identifier. lpuModifiers Value that specifies the keys that must be combined with lpuVKey to trigger the hot key. Can be a combination of these values: Value Meaning MOD_ALT                       ALT key MOD_CONTROL                   CTRL key MOD_SHIFT                     SHIFT key MOD_LEFT                      Use key on left side of keyboard MOD_RIGHT                     Use key on right side of keyboard MOD_ON_KEYUP                  Trigger hot key when hot key is released MOD_IGNORE_ALL_MODIFIER       Ignore modifier keys lpuVKey Virtual key code of this hot key. lphKL Handle of the keyboard layout for the IME. If return value of this parameter is of NULL, this hot key can switch to the IME with this keyboard layout.

delphi1 · 1999-04-21

yanhaijun：很遗憾我不能给你高分，虽然我们可能还是本家 茶叶蛋很好吃，茶叶蛋大概经常吃。 下面是我使用的部分代码，增加Windows95没有的设置默认输入法，是商业软件中的哦： uses   Menus, Imm, ShellApi, About; function ImmGetHotKey(dwHotKeyID: DWord; var uModifiers: UINT;   var uVKey: UINT; var hKL: HKL): Boolean; stdcall; external 'Imm32.dll' Name 'ImmGetHotKey'; function HotKeyToStr(uModifiers, uVKey: UINT): string; var   Shift: TShiftState; begin   Shift := [];   if uModifiers and MOD_ALT <> 0 then Shift := Shift + [ssAlt];   if uModifiers and MOD_CONTROL <> 0 then Shift := Shift + [ssCtrl];   if uModifiers and MOD_SHIFT <> 0 then Shift := Shift + [ssShift];   if uModifiers and MOD_LEFT <> 0 then Shift := Shift + [ssLeft];   if uModifiers and MOD_RIGHT <> 0 then Shift := Shift + [ssRight];   Result := ShortCutToText(ShortCut(uVKey, Shift)); end; procedure TSetImeForm.FormCreate(Sender: TObject); const   nHKL_LIST = 20; var   iImeCount, i, j, iImageIndex: Integer;   hImeList: array[1..nHKL_LIST] of HKL;   szImeFileName: array[0..MAX_PATH] of Char;   szImeName: array[0..254] of Char;   hLargeIcon, hSmallIcon: HICON;   Icon: TIcon;   uModifiers, uVKey: UINT;   hIme: HKL;   sHotKeys: string; begin   ListView.Items.Clear;   iImeCount := GetKeyboardLayoutList(nHKL_LIST, hImeList);   for i := 1 to iImeCount do     if ImmEscape(hImeList, 0, IME_ESC_IME_NAME, @szImeName) > 0 then     begin       iImageIndex := -1;       ImmGetIMEFileName(hImeList, szImeFileName, MAX_PATH);       if ExtractIconEx(szImeFileName, 0, hLargeIcon, hSmallIcon, 1) <> 0 then       begin         Icon := TIcon.Create;         Icon.Handle := hSmallIcon;         iImageIndex := ImageList.AddIcon(Icon);         Icon.Free;       end;       with ListView.Items.Add do       begin         Caption := szImeName;         ImageIndex := iImageIndex;         if Caption = SysIni.ReadString(seUser, idDefaultIme, '五笔型码') then           Selected := True;       end;     end;   for i := IME_HOTKEY_DSWITCH_FIRST to IME_HOTKEY_DSWITCH_LAST do     if ImmGetHotKey(i, uModifiers, uVKey, hIme) then       for j := 1 to iImeCount do         if hIme = hImeList[j] then  //First Ime is En, and has not name           ListView.Items[j - 2].SubItems.Add(HotKeyToStr(uModifiers, uVKey));   sHotKeys := '';   if ImmGetHotKey(IME_CHOTKEY_IME_NONIME_TOGGLE, uModifiers, uVKey, hIme) then     sHotKeys := sHotKeys + '打开关闭输入法' + '  ' + HotKeyToStr(uModifiers, uVKey) + #13;   if ImmGetHotKey(IME_CHOTKEY_SYMBOL_TOGGLE, uModifiers, uVKey, hIme) then     sHotKeys := sHotKeys + '切换中英文符号' + '  ' + HotKeyToStr(uModifiers, uVKey) + #13;   if ImmGetHotKey(IME_CHOTKEY_SHAPE_TOGGLE, uModifiers, uVKey, hIme) then     sHotKeys := sHotKeys + '切换全角和半角' + '  ' + HotKeyToStr(uModifiers, uVKey) + #13;   HotKeyList.Caption := sHotKeys; end;

中文输入法的热键(100分)

delphi1

Unregistered / Unconfirmed

jghuang

Unregistered / Unconfirmed

Town

Unregistered / Unconfirmed

yanghaijun

Unregistered / Unconfirmed

jghuang

Unregistered / Unconfirmed

delphi1

Unregistered / Unconfirmed

茶叶蛋

Unregistered / Unconfirmed

delphi1

Unregistered / Unconfirmed

Similar threads