20 Inno Setup制作安装包的几个问题

系统开发好之后，通常需要制作成安装包，才能卖给用户。利用Inno Setup的向导可以制作简单的安装包，但是如果要做个好的安装包的话可能会遇到一些麻烦，今日终于抽空解决了，Inno Setup打包的一些问题。具体如下：

1. 卸载时，如何判断应用程序是否运行 
   InnoSetup 提供变量AppMutex，用来保存应用程序的Mutex名称。现在很多应用程序都是唯一实例运行。这样避免配置文件被错误修改以及其他很多衍生问题。通常都会用WindowsAPI CreateMuex来创建一个Mutex；安装包卸载时会判断AppMutex是否已经被占用。如果被占用则等待并提示用户关闭应用程序。如果应用程序正在运行，通常该exe文件和被使用的dll是不会被删除的，卸载不完全。 
在Inno Setup Compile 配置中，将MyProgramsMutexName 定义为 “ityujian-A75DEC53-783F-4425-8431-24D83BD4CE5F”    该字符串需要在被打包的EXE文件中使用。 
#define MyProgramsMutexName “ityujian-A75DEC53-783F-4425-8431-24D83BD4CE5F” 
[Setup] 
AppMutex={#MyProgramsMutexName}

2. 如何提示用户是否删除配置文件 
  Inno Setup提供Script Language支持，可以在[Code] 章节里使用Pascal Script编写函数 并且Inno Setup提供事件响应。在卸载时，该函数会被调用

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
  if CurUninstallStep = usUninstall then begin 
    if MsgBox(‘Do you want to delete all config files and log files?’, mbConfirmation, MB_YESNO) = IDYES 
    then  DelFiles(); 
  end; 
end;

这是Inno Setup提供的卸载事件函数，  if CurUninstallStep = usUninstall  判断是否正在卸载， 
如果正在卸载则需判断是否删除配置文件，我开发的应用程序使用ini文件存储配置。MsgBox(‘Do you want to delete all config files and log files?’, mbConfirmation, MB_YESNO) 用于弹出消息框，提示用户选择是否删除文件。 
函数DelFiles() 为自定义函数，用来删除文件和目录。 
ExpandConstant用于获取变量值，FileExists用于判断文件是否存在；DeleteFile用来删除文件； 
DirExists 用于检查目录是否存在；DelTree用于删除目录和里面的文件

procedure DelFiles(); 
begin 
  if FileExists(ExpandConstant(‘{app}’) + ‘config.ini’)  then  DeleteFile(ExpandConstant(‘{app}’) + ‘config.ini’); 
  if FileExists(ExpandConstant(‘{app}’) + ‘log.txt’)     then DeleteFile(ExpandConstant(‘{app}’) + ‘log.txt’); 
  if DirExists(ExpandConstant(‘{app}’) + ‘Users’)       then DelTree(ExpandConstant(‘{app}’) + ‘Users’, true, true, true); 
end;

Inno Setup 编译配置文件如下，供参考：

; Script generated by the Inno Setup Script Wizard. 
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName “ityujian” 
;应用程序名 
#define MyAppVersion “1.0” 
;版本号 
#define MyAppPublisher “Jianyu Studio” 
;发布者名称 
#define MyAppURL “http://www.cnblogs.com/ityujian/” 
;公司的网站 
#define MyAppExeName “ityujian.exe” 
;exe文件名 
#define MyProgramsMutexName “ityujian-A75DEC53-783F-4425-8431-24D83BD4CE5F” 
;应用程序中使用的Mutex，卸载时用来判断应用程序是否正在执行

[Setup] 
; NOTE: The value of AppId uniquely identifies this application. 
; Do not use the same AppId value in installers for other applications. 
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.) 
AppId={{ECCF74CD-48BA-4000-988B-18E965893BD6} 
AppName={#MyAppName} 
AppVersion={#MyAppVersion} 
;AppVerName={#MyAppName} {#MyAppVersion} 
AppPublisher={#MyAppPublisher} 
AppPublisherURL={#MyAppURL} 
AppSupportURL={#MyAppURL} 
AppUpdatesURL={#MyAppURL} 
DefaultDirName={pf}{#MyAppName} 
DefaultGroupName={#MyAppName} 
AllowNoIcons=yes 
OutputBaseFilename=setup 
SetupIconFile=.ityujian.ico 
;SetupIconFile 是打包之后exe的图标文件 
Compression=lzma 
SolidCompression=yes 
AppMutex={#MyProgramsMutexName} 
;AppMutex是需要打包的应用程序使用的Mutex，卸载之前会先判断该AppMutex是否已经被占用，如果被占用则提示应用程序正在运行，请关闭

[Languages] 
Name: “english”; MessagesFile: “compiler:Default.isl”

[Tasks] 
Name: “desktopicon”; Description: “{cm:CreateDesktopIcon}”; GroupDescription: “{cm:AdditionalIcons}”; Flags: unchecked 
Name: “quicklaunchicon”; Description: “{cm:CreateQuickLaunchIcon}”; GroupDescription: “{cm:AdditionalIcons}”; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files] 
Source: “GdiPlus.dll”; DestDir: “{app}”; Flags: ignoreversion 
Source: “ityujian.exe”; DestDir: “{app}”; Flags: ignoreversion 
;Source 描述需要打包的EXE文件位置，DestDir描述安装时该EXE文件的相对位置 
Source: “ityujian.pdb”; DestDir: “{app}”; Flags: ignoreversion 
Source: “Users*”; DestDir: “{app}Users”; Flags: ignoreversion recursesubdirs createallsubdirs  uninsneveruninstall 
;上句用于将Users目录打进安装包；uninsneveruninstall说明卸载时，不删除该文件夹 
Source: “Doc*”; DestDir: “{app}Doc”; Flags: ignoreversion recursesubdirs createallsubdirs 
;用户将Doc目录下的用户手册打进安装包 
; NOTE: Don’t use “Flags: ignoreversion” on any shared system files

[Icons] 
Name: “{group}{#MyAppName}”; Filename: “{app}{#MyAppExeName}” 
Name: “{group}{cm:ProgramOnTheWeb,{#MyAppName}}”; Filename: “{#MyAppURL}” 
Name: “{group}{cm:UninstallProgram,{#MyAppName}}”; Filename: “{uninstallexe}” 
Name: “{commondesktop}{#MyAppName}”; Filename: “{app}{#MyAppExeName}”; Tasks: desktopicon 
Name: “{userappdata}MicrosoftInternet ExplorerQuick Launch{#MyAppName}”; Filename: “{app}{#MyAppExeName}”; Tasks: quicklaunchicon

[UninstallDelete] 
Type: dirifempty; Name: “{app}” 
;Type有多种；Type: dirifempty表示如果安装本应用程序的目录不为空，则不删除安装目录

[Code] 
procedure DelFiles(); 
begin 
  if FileExists(ExpandConstant(‘{app}’) + ‘config.ini’)  then  DeleteFile(ExpandConstant(‘{app}’) + ‘config.ini’); 
  if FileExists(ExpandConstant(‘{app}’) + ‘log.txt’)     then DeleteFile(ExpandConstant(‘{app}’) + ‘log.txt’); 
  if DirExists(ExpandConstant(‘{app}’) + ‘Users’)       then DelTree(ExpandConstant(‘{app}’) + ‘Users’, true, true, true); 
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
  if CurUninstallStep = usUninstall then begin 
    if MsgBox(‘Do you want to delete all config files and log files?’, mbConfirmation, MB_YESNO) = IDYES 
    then  DelFiles(); 
  end; 
end;

安装之后截图：

本文链接：http://www.cnblogs.com/ityujian/p/Inno_Setup_Problems.html，转载请注明