在开发桌面程序时,往往需要用到打包工具将程序打包为exe可执行文件。
之前在项目中用了下 InstallShield Limited Edition for Visual Studio 2015,它的功能很强大,但是需要付费使用,而且有些细粒度的操作比较复杂。
后来,我发现了一款简单方便的打包工具,即我们今天的主角Inno Setup
Inno Setup 支持pascal脚本,这样我们就能通过直接写脚本来实现功能了。
下面我们来看看我们打包过程中常见功能需求:
- 创建安装exe文件
- 创建卸载exe文件
- 创建各种快捷方式,桌面、快速启动栏等
- 安装、卸载Windows 服务
- 添加注册表信息
- 打包.Net framework 环境
- 安装时不能同时运行两个安装程序
- 安装/卸载时检测程序(或服务)是否在运行,如果在运行则先关闭程序。
程序的使用方法就不多做介绍了,打开程序新建脚本,会创建出一个基本的框架,然后我们就可以修改脚本添加功能了。
上面的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