Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
½Ð°Ý¦p¦ó°»´úwin95¤¤¡A¤w¦w¸Ë¤F¨º¨Ç¤¤¤å¿é¤Jªk¡H
¥H¤U¦³Ó²{¦¨ªº, ¦pªG±z¹ï¦¹¤]¦³¿³½ì, ¦b§ÚªºDelphi¾Ç²ßµ§°O³Ð§@½g¤¤½Ð§ä¤@¤U cedit26b.zip »P Qcomp101.zip(¦r®Ú¬d¸ßµ{¦¡), ime95.pasùØÁÙ¦³³\¦h¨ç¦¡¥i¥H°Ñ¦Ò.
// uses IMM; // put a TMemo on form procedure MyGetImeList(AList: TStringList); const nHKL_LIST = 20; var iHandleCount: integer; pList: array[0..nHKL_LIST] of HKL; szFileName: array[0..MAX_PATH] of char; i: integer; begin if AList = nil then Exit; AList.Clear; iHandleCount := GetKeyboardLayoutList(nHKL_LIST, pList); for i := 0 to iHandleCount - 1 do begin if ImmGetIMEFileName(pList[I], szFileName, MAX_PATH) > 0 then begin // AList.Add(StrPas(szFileName)); // ³o¬O¦U IME ªºÀɦW if ImmEscape(pList[i], 0, IME_ESC_IME_NAME, @szFileName) > 0 then AList.Add(Copy(StrPas(szFileName), 1, 4)); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin MyGetImeList(TStringList(Memo1.Lines)); end;
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |