使用Setup Factory 7.0制作字体安装器
本文将介绍使用Setup Factory 7.0打包工具制作，主要步骤如下：
1、新建工程
使用工程向导，依次输入公司名称、产品名称或标题、产品版本、公司URL等信息，其中产品名称或标题输入“字体安装器”，点击“下一步”，将源文件夹路径清空，跳过设置源文件夹这一步，一直下一步，到“多语言设置”页面时，添加中文语言，之后，一直点击下一步直到完成。
2、去掉安装、卸载相关界面
在Setup Factory 7.0的左侧任务栏的屏幕选项中，打开“安装之前”项，删除安装之前项中的所有屏幕；在卸载选项中，打开“屏幕”项，删除卸载之前、卸载之后的屏幕，卸载之时去掉“卸载期间显示进度屏幕”选项。
3、添加操作脚本
在Setup Factory 7.0的左侧任务栏的操作选项中，打开“启动时”项，输入操作脚本。
脚本内容如下：
--弹出选择字体所在文件夹对话框
result = Dialog.FolderBrowse("请选择需要安装的字体所在文件夹:", _DesktopFolder);
--检查字体文件夹路径是否存在
exist = Folder.DoesExist(result);
if(exist)
then
--Dialog.Message("title", "exist", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
--取得字体文件夹下的字体文件路径
ttfFiles = File.Find(result, "*.ttf", false, false, nil, nil);
--搜索字体文件路径操作是否成功成功
searchTTF=Application.GetLastError();
if(searchTTF==0) then
--字体文件夹下存在字体文件(以ttf后缀结尾文件)
if(ttfFiles~=nil) then
for index, path in ttfFiles do
names = String.SplitPath(path); --分割路径为磁盘名、文件名等
fileName=names.Filename; --取得字体文件名
--注册字体
System.RegisterFont(path, fileName, true);
--安装字体操作是否成功
registerFontResult= Application.GetLastError();
--安装字体操作信息
regMsg=_tblErrorMessages[registerFontResult];
--将操作信息写入到安装日志
SetupData.WriteToLogFile(fileName.."安装"..regMsg.."\r\n", true);
end
end
else
Dialog.Message("搜索字体文件夹出错", _tblErrorMessages[searchTTF], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
end --end of if searchTTF
end --end of if DoesExist
4、设置安装文件名称
此步骤设置生成的安装文件名称，如XX.exe
点击菜单“发布”->“设置”，在弹出的“构建设置”界面中，安装文件名处修改为“字体安装器.exe”，确定保存操作。
5、生成可执行文件
点击菜单“发布”->“构建”，根据发布向导生成可执行文件即可。
转载请注明出处。http:www.cnblogs.com/waterfrost
