文章出处：赛迪网-中国计算机报

作者：黄金铁  
  
  　　微软的数据库开发工具Visual FoxPro 6.0在国内应用很广，但也不可避免地存在某些Bug。近日，本人在使用VFP 6.0简体中文版开发软件时，就发现了其安装向导中的一个Bug，下面，笔者将具体介绍该问题及笔者的解决方案。 

　　 在制作应用程序发行版软件时，笔者利用安装向导将应用软件中的字形文件安装到Windows目录。按其提示正常操作后，得到的应用程序发行版在执行安装过程中出错，出错的窗口标题为“安装程序出错824”，错误提示为“对象16，您的安装程序文件可能已被破坏。请从您原来运行它的位置重新启动安装程序”。此错误代码在帮助文件中找不到。根据其提示的内容，笔者检查了所有的源文件和生成文件，发现均正确无误。将该字形文件安装到应用程序目录和Windows系统目录亦正常。最后锁定了故障的原因，即安装向导在把文件安装到Windows目录时出现错误。 

　　经过较长时间的分析和思索，笔者最后在生成的安装程序中的两个参数文件setup.stf及setup.inf中找到了蛛丝马迹。在setup.stf中，该字形文件对应行有一个字段内容为“应用程序- Windows，-0b20z4avw”；而在setup.inf中，文件的内容按节分开，节名用方括号包括。该字形文件单独在一节，节名为[Application - Windows]。笔者试着用debug反汇编程序把该节名修改为[应用程序- Windows]，以便与setup.stf对应，空出的三个字节用空格补齐。结果生成的安装程序顺利地将该字形文件安装到了Windows目录下，至此摆平了该Bug。 

　　回头来看，此Bug产生的原因是微软Visual FoxPro 6.0汉化不完全造成的，在英文版的Visual FoxPro 6.0中不应该有此问题。为了以后应用的方便，本人专门做了一段FoxPro程序自动做替换节名的工作。程序如下： 

　　&&&&解决Visual Viusal FoxPro 6.0简体中文版安装向导Bug的程序 

　　f1=locfile('setup.inf','inf:inf') 

　　if len(f1)＞0 

　　setupinf=fopen(f1,2) 

　　else 

　　wait windows "没找到setup.inf文件!" 

　　 return 

　　endif 

　　if setupinf＜0 

　　 wait windows "打开setup.inf文件错误!" 

　　 return 

　　endif 

　　s1="[Application - Windows]" 

　　s2="[应用程序- Windows] "  

　　&&&&s2字符串尾部有3个空格,以使其长度与s1长度相等 

　　flag1=.f. 

　　do while .not.feof(setupinf) 

　　 s3=fgets(setupinf) 

　　 if s3=s1 

　　 fseek(setupinf,0-len(s1)-2,1) 

　　 fputs(setupinf,s2) 

　　 flag1=.t. 

　　 exit 

　　 endif 

　　enddo 

　　fclose(setupinf) 

　　if flag1 

　　 wait windows "替换成功!" 

　　else 

　　 wait windows "没找到"+s1+"节!" 

　　endif 

　　return 

　　以上是笔者的解决方案，希望能对大家的开发有所帮助。