Install Shield 字体安装方法和工具

使用InstallShield的用户可能会碰到以下问题，明明中文字体已经根据InstallShiled的说明将字体复制到Windows中的字体目录下(通常为C:\Windows\Fonts)，但是还是没能正常安装到系统中。笔者经过摸索，发现了一个很简单的解决方法，只要在等待InstallShield复制字体后，用Explorer将系统中字体目录马上出来，Windows将自动生成字体的信息FOT文件，即可成功安装。因此，笔者特意编写了一个程序叫ShowFolder专门命令Explorer开启指定目录。

使用方法如下：
一、编译ShowFolder工程

二、在InstallShield进行如下操作

1、加入函数声明头

prototype ShowFontFolder(BOOL)

2、加入函数
function ShowFontFolder(bShow)
string szFontFolder;
begin
szFontFolder = "ShowFolder.exe";
if(bShow==FALSE)then
szFontFolder = szFontFolder;
LaunchApAndWait(szFontFolder,"Hide",LAAW_OPTION_WAIT);
else
//ShowProgramFolder(szFontFolder,SW_MINIMIZE);
LaunchAppAndWait(szFontFolder,"",LAAW_OPTION_WAIT);
endif;
end;

3、在OnFirstUIAfter函数中前后部分别加入

function OnFirstUIAfter()
...
begin
ShowFontFolder(TRUE);
...
ShowFontFolder(FALSE);
end;

这个方法比较有效，但还有缺点，欢迎读者批评指正。

张永齐
2004年3月