使用Inno SetUp脚本打包Winform程序

在开发桌面程序时，往往需要用到打包工具将程序打包为exe可执行文件。

之前在项目中用了下 InstallShield Limited Edition for Visual Studio  2015，它的功能很强大，但是需要付费使用，而且有些细粒度的操作比较复杂。

后来，我发现了一款简单方便的打包工具，即我们今天的主角Inno Setup

Inno Setup 支持pascal脚本，这样我们就能通过直接写脚本来实现功能了。

下面我们来看看我们打包过程中常见功能需求：

1. 创建安装exe文件
2. 创建卸载exe文件
3. 创建各种快捷方式，桌面、快速启动栏等
4. 安装、卸载Windows 服务
5. 添加注册表信息
6. 打包.Net framework 环境
7. 安装时不能同时运行两个安装程序
8. 安装/卸载时检测程序(或服务)是否在运行，如果在运行则先关闭程序。

程序的使用方法就不多做介绍了，打开程序新建脚本，会创建出一个基本的框架，然后我们就可以修改脚本添加功能了。

上面的1、2、3 条功能基本的脚本已经帮我们实现了。

关于操作windows服务，我这里收藏了一个极好用的脚本。

//  Code pasted from the following address, for examples and more visit it:
//  http://www.vincenzo.net/isxkb/index.php?title=Service_-_Functions_to_Start%2C_Stop%2C_Install%2C_Remove_a_Service


// function IsServiceInstalled(ServiceName: string) : boolean;
// function IsServiceRunning(ServiceName: string) : boolean;
// function InstallService(FileName, ServiceName, DisplayName, Description : string;ServiceType,StartType :cardinal) : boolean;
// function RemoveService(ServiceName: string) : boolean;
// function StartService(ServiceName: string) : boolean;
// function StopService(ServiceName: string) : boolean;
// function SetupService(service, port, comment: string) : boolean;

type
    SERVICE_STATUS = record
        dwServiceType               : cardinal;
        dwCurrentState              : cardinal;
        dwControlsAccepted          : cardinal;
        dwWin32ExitCode             : cardinal;
        dwServiceSpecificExitCode   : cardinal;
        dwCheckPoint                : cardinal;
        dwWaitHint                  : cardinal;
    end;
    HANDLE = cardinal;

const
    SERVICE_QUERY_CONFIG        = $1;
    SERVICE_CHANGE_CONFIG       = $2;
    SERVICE_QUERY_STATUS        = $4;
    SERVICE_START               = $10;
    SERVICE_STOP                = $20;
    SERVICE_ALL_ACCESS          = $f01ff;
    SC_MANAGER_ALL_ACCESS       = $f003f;
    SERVICE_WIN32_OWN_PROCESS   = $10;
    SERVICE_WIN32_SHARE_PROCESS = $20;
    SERVICE_WIN32               = $30;
    SERVICE_INTERACTIVE_PROCESS = $100;
    SERVICE_BOOT_START          = $0;
    SERVICE_SYSTEM_START        = $1;
    SERVICE_AUTO_START          = $2;
    SERVICE_DEMAND_STAR