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

領測軟件測試網

implementation 


{$R *.DFM} 


procedure TForm1.FormCreate(Sender: TObject); 

var 

i: integer; 

begin 

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 


ii := i; 

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