使用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