用Delphi 6編程實現自動標注漢語拼音

領測軟件測試網

II := 0; 

//retrieves the keyboard layout handles corresponding to the current set of input locales in the system. 

iHandleCount := GetKeyboardLayoutList(20, pList); 

for i := 1 to iHandleCount do 

begin 

if ImmEscape(pList[i], 0, IME_ESC_IME_NAME, @szImeName) > 0 then 

if szImeName=’微軟拼音輸入法’ then 

begin 


StdCtrls, ExtCtrls, Buttons, IMM; 

type 

TForm1 = class(TForm) 

OpenDialog1: TOpenDialog; 

BitBtn2: TBitBtn; 

BitBtn3: TBitBtn; 

Edit2: TEdit; 

Edit1: TEdit; 

Label5: TLabel; 

文章來源于領測軟件測試網 http://www.kjueaiud.com/