使用Setup Factory 7.0制作字体安装器

admin

1、新建工程
     使用工程向导，依次输入公司名称、产品名称或标题、产品版本、公司URL等信息，其中产品名称或标题输入“字体安装器”，点击“下一步”，将源文件夹路径清空，跳过设置源文件夹这一步，一直下一步，到“多语言设置”页面时，添加中文语言，之后，一直点击下一步直到完成。


2、去掉安装、卸载相关界面
     在Setup Factory 7.0的左侧任务栏的屏幕选项中，打开“安装之前”项，删除安装之前项中的所有屏幕；在卸载选项中，打开“屏幕”项，删除卸载之前、卸载之后的屏幕，卸载之时去掉“卸载期间显示进度屏幕”选项。

3、添加操作脚本
     在Setup Factory 7.0的左侧任务栏的操作选项中，打开“启动时”项，输入操作脚本。

脚本内容如下：

1. --弹出选择字体所在文件夹对话框
   
2. 
   
3. result = Dialog.FolderBrowse("请选择需要安装的字体所在文件夹:", _DesktopFolder);
   
4. 
   
5. 
   
6. --检查字体文件夹路径是否存在
   
7. 
   
8. exist = Folder.DoesExist(result);
   
9. if(exist)
   
10. then
    
11. --Dialog.Message("title", "exist", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
    
12. 
    
13. --取得字体文件夹下的字体文件路径
    
14. ttfFiles = File.Find(result, "*.ttf", false, false, nil, nil);
    
15. 
    
16. --搜索字体文件路径操作是否成功成功
    
17. searchTTF=Application.GetLastError();
    
18.   if(searchTTF==0) then
    
19. 
    
20. --字体文件夹下存在字体文件(以ttf后缀结尾文件)
    
21.     if(ttfFiles~=nil) then
    
22.           for index, path in ttfFiles do
    
23.             names = String.SplitPath(path); --分割路径为磁盘名、文件名等
    
24.             fileName=names.Filename;   --取得字体文件名
    
25.                   
    
26.             --注册字体
    
27.             System.RegisterFont(path, fileName, true);
    
28. 
    
29.             --安装字体操作是否成功
    
30.             registerFontResult= Application.GetLastError();
    
31. 
    
32.             --安装字体操作信息
    
33.             regMsg=_tblErrorMessages[registerFontResult];
    
34. 
    
35.             --将操作信息写入到安装日志
    
36.             SetupData.WriteToLogFile(fileName.."安装"..regMsg.."\r\n", true);
    
37.        end
    
38.      end
    
39.   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、生成可执行文件

     点击菜单“发布”->“构建”，根据发布向导生成可执行文件即可。