procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end

本代码来源vc仓库的杨老师，是实现在IE控件，实现调用word,音乐，打印功能-The source code repository, Yang vc teacher, is to achieve in the IE control to achieve call word, music, printing function

编辑控件和中英文输入法。 1。做了输入界面，把算法实现了；2。增补了2级字库——原来的程序只有一级字库，3000多字，现在一二级都有了，6000多字，一般够用了。3. 调了字序——按常用不常用排了序，哪个常用哪个不常用，有一定主观色彩，不见得大家都认可，不过还是比不排强多了。 程序的另一个部分是编辑控件，支持中英文混合输入，单行的，扩展成多行的也不难。 -Edit control and the text input. 1. Do the input interface, the al