用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; 

文章来源于领测软件测试网 https://www.ltesting.net/