inno的几个功能

inno因其免费、制作简单、功能强大而备受欢迎。一般来说按照提示一步步进行下去，制作基本能完成。这里探讨几个平时不一定用的功能。

 

判断某个程序是否在运行

首先要用MicroSoft spy++找有关的程序的WindowName或者ClassName，依据FindWindowByWindowName(WindowName) 或者FindWindowByClassName(ClassName)来检测程序是否在运行，这里使用FindWindowByWindowName。

[Code] var ErrorCode: Integer; IsRunning: Integer; // 安装时判断客户端是否正在运行 function InitializeSetup(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('windowname'); while IsRunning<>0 do begin if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then begin Result :=false; //安装程序退出 IsRunning :=0; end else begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('windowname'); end; end; end; // 卸载时判断客户端是否正在运行 function InitializeUninstall(): Boolean; begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('windowname'); while IsRunning<>0 do begin if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then begin Result :=false; //安装程序退出 IsRunning :=0; end else begin Result :=true; //安装程序继续 IsRunning:=FindWindowByWindowName('windowname'); end; end; end; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin case CurUninstallStep of usUninstall: begin // 开始卸载 end; usPostUninstall: begin // 卸载完成 // MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK); // ...insert code to perform post-uninstall tasks here... ShellExec('open', 'http://www.yourweb.cn', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); end; end; end;

 

安装过程执行另一个安装程序

[Run] Filename: "{app}/othersetup.exe"; Description: "运行XX驱动"; Flags: hidewizard Filename: "{app}/{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: postinstall nowait skipifsilent

 

许可证文件对话框弹出

[Setup] ...... LicenseFile=.../软件最终用户许可协议.rtf ......