关于setup factory的一些基本操作

最近需要进行程序打包，发现setup factory是个比较好用的软件，有详细的API文档可以查阅，整理了一下在打包过程中用到的基本操作跟大家分享：

1、注册表基本操作（读、写），为了解决程序重复安装的问题

在action的on startup中写入代码（如何写入注册表在文章下边）：

--这里是对注册表进行检查，检查是否有该注册表
--检查注册表：
local Key = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "software\\随便起个名字\\XX软件（用英文最好）");
local productName = SessionVar.Expand("%ProductName%");

if (Key == true) then
    local diaInfo = Dialog.Message(ProductName, String.Concat("检测到已安装"，"如需重新安装，请先卸载软件"), MB_OKCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);
    --无论选择确定还是取消，都退出程序
    Application.Exit(); 
end

2、在安装过程中安装软件需要的环境，比如VS2010，13等等

首先需要导入环境文件，
//添加环境文件
点击上边菜单栏的Resources，然后选择Primer Files，然后添加你的文件就好。
在on pre install中写入代码

--安装过程中，安装环境
--此处的vcredist_x64.exe就是上边刚刚添加的文件的文件名，不要写错了，不然就报错了
Shell.Execute(_TempLaunchFolder.."vcredist_x64.exe");

3、写入注册表

--过程中写入注册表
--写入的注册表名字，和检测的注册表名字一致就行了
Registry.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\自己起的名字\自己起的名字");

4、创建卸载文件，因为setup factory的uninstall是要给参数的，所以需要自己生成一个卸载快捷方式，这一步比较cao淡，有很多坑，网上的教程大多都埋了坑

--在on Post Install中写入代码
--创建卸载
--注意下边的斜杠还有反斜杠以及单引号包着双引号
Shell.CreateShortcut(SessionVar.Expand("%AppFolder%"),
SessionVar.Expand("卸载%ProductName"),
SessionVar.Expand("%AppFolder%\\uninstall.exe"),
SessionVar.Expand('"/U:%AppFolder%\\Uninstall\\uninstall.xml"'),
SessionVar.Expand("%AppFolder%"),
SessionVar.Expand("%AppFolder%\\uninstall.exe"),
0,
SW_SHOWNORMAL,
nil,
"");

5、卸载软件时需要删除注册表

--卸载时：
--在uninstall的actions的on Post Uninstall中写
--删除注册表
Registry.DeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\注册表名字\\注册表名字");

6、防止程序运行过程中被删除

--写个函数，好看一些
function CheckProcessStatus(process_name)
    --获取当前所有进程的列表
    local processes_list = Window.EnumerateProcesses(false);
    --判断是否找到该进程名称
    local process_find = false;
    --进程句柄，如果需要关闭进程，需要获取，如果不需要不获取也可以
    local process_handle = nil; 
    local productName = SessionVar.Expand("%ProductName%");
 
    if Table.Count(tblProcesses) > 0 then
        local process_name_tem;
        local handle_tem;
        for handle_tem,process_name_tem in pairs(processes_list) do
            if(String.Find(process_name_tem,process_name,1,false) ~= -1) then
                process_handle = handle_tem;
                process_find = true;
            end
        end
    end
    if(process_find and process_handle)then
        --关闭进程
        Window.Close(process_handle,CLOSEWND_TERMINATE);
        --或者进行弹框提示
        --local diaInfo = Dialog.Message(ProductName, String.Concat("程序正在运行中"，"如请先退出程序在进行卸载"), MB_OKCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);
        --Application.Exit(); 
    end
end


--使用该函数进行检测即可
CheckProcessStatus("XXX.exe");