一个比较完整的Inno Setup 安装脚本

一个比较完整的Inno Setup 安装脚本，增加了对ini文件设置的功能，一个安装包常用的功能都具备了。
[plain]view plaincopy 
   
 [Setup]  
 ; 注: AppId的值为单独标识该应用程序。  
 ; 不要为其他安装程序使用相同的AppId值。  
 ; (生成新的GUID，点击 工具|在IDE中生成GUID。)  
 AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675}  
 ;程序名  
 AppName=ISsample  
 ;版本号  
 AppVerName=ISsample 1.0.0.0  
 ;发布者名  
 AppPublisher=Hkiss  
 ;相关连接  
 AppPublisherURL=http://zwkufo.blog.163.com  
 AppSupportURL=http://zwkufo.blog.163.com  
 AppUpdatesURL=http://zwkufo.blog.163.com  
 ;默认安装目录  
 DefaultDirName={pf}\ISsample  
 ;默认开始菜单名  
 DefaultGroupName=ISsample  
 ;是否打开->可选安装开始菜单项  
 ;AllowNoIcons=yes  
 ;安装协议  
 ;LicenseFile=C:\Example\原始文件\agreement.txt  
 ;安装前查看的文本文件  
 ;InfoBeforeFile=C:\Example\原始文件\Setup_New.txt  
 ;安装后查看文本文件  
 ;InfoAfterFile=C:\Example\原始文件\Setup_Old.txt  
 ;输出文件夹  
 OutputDir=C:\Example\InnoSetup\out  
 ;输出文件名  
 OutputBaseFilename=setup  
 ;安装图标  
 SetupIconFile=C:\Example\原始文件\title.ico  
 ;安装需要输入密码  
 ;Password=123  
 ;Encryption=yes  
   
 ;压缩相关  
 Compression=lzma  
 SolidCompression=yes  
 ;可以让用户忽略选择语言相关  
 ShowLanguageDialog = yes  
 ;备注版本信息  
 VersionInfoCompany=HTTP://www.Hkiss.COM  
 VersionInfoDescription=ISsample 汉化增强版  
 VersionInfoVersion=1.0.0.0  
 VersionInfocopyright=copyright (C) 2007-2008 Hkiss  
 ;制作选择语言  
 [Languages]  
 Name: "chs"; MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:\Example\原始文件\chs\agreement.txt"  
 Name: "en"; MessagesFile: "compiler:Languages\English.isl";LicenSeFile :"C:\Example\原始文件\en\agreement.txt"  
   
 ;用户定制任务  
 [Tasks]  
 Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
 Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked  
 Name: "Tasks_1" ; Description:"用户自定义任务1"; Flags: unchecked  
 Name: "Tasks_2" ; Description:"用户自定义任务2"; Flags: unchecked  
 ;选择了组件才会出现的定制任务  
 Name: "Tasks_3" ; Description:"用户自定义任务3";Components: c1 ; Flags: unchecked  
 ;文件安装  
 [Files]  
 ;多语言安装环境设置    公共参数Languages 来设置  
 Source: "C:\Example\原始文件\enfile.txt"; DestDir: "{app}"; Languages: en ; Flags: ignoreversion  
 Source: "C:\Example\原始文件\chsfile.txt"; DestDir: "{app}"; Languages: chs ; Flags: ignoreversion  
 ;用户自定义任务 Tasks  
 Source: "C:\Example\原始文件\Tasks\tasks_1.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1  
 Source: "C:\Example\原始文件\Tasks\tasks_2.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2  
 Source: "C:\Example\原始文件\Tasks\tasks_Components.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2  
 ;用户定义组件安装  
 Source: "C:\Example\原始文件\Components\Components_1.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;  
 Source: "C:\Example\原始文件\Components\Components_2.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;  
 Source: "C:\Example\原始文件\Components\Components_3.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;  
 Source: "C:\Example\原始文件\Components\Components_4.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1 a2 a3;  
 ;用户注册自定义Dll文件      regserver 注册 noregerror 不显示错误信息  
 Source: "C:\Example\原始文件\jmail.dll"; DestDir: "{app}"; Flags: ignoreversion regserver  
 ;添加自述文件  
 Source: "C:\Example\原始文件\ISsample.txt"; DestDir: "{app}"; Flags: ignoreversion  
 ;添加一个文件到缓存文件夹{Tmp} deleteafterinstall 安装后删除  
 Source: "C:\Example\原始文件\test.exe"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall  
 Source: "C:\Example\原始文件\ISsample.chm"; DestDir: "{app}"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\ISsample.exe"; DestDir: "{app}"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\ISsample.dll"; DestDir: "{app}"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\ISsample.ini"; DestDir: "{app}"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\ISsample.rar"; DestDir: "{app}"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\ISsample_sys.dll"; DestDir: "{win}\System32"; Flags: ignoreversion  
 Source: "C:\Example\原始文件\log\*"; DestDir: "{app}\log"; Flags: ignoreversion recursesubdirs createallsubdirs  
 ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”  
 ;安装类型设置  
 [Types]  
 Name: Full ;Description:"完全安装"; Flags: iscustom  
 Name: Compact ;Description:"简洁安装";  
 Name: Custom; Description:"自定义安装";  
 ;组件安装  
 [Components]  
 Name: c1; Description: "自定义任务3" ; Types: Full  
 Name: a1; Description: "安装Components_1"; Types: Full Compact Custom ;  
 Name: a2; Description: "安装Components_2"; Types : Full   Compact  
 Name: a3; Description: "安装Components_3"; Types : Full  
 ;开始菜单，桌面快捷方式  
 [Icons]  
 Name: "{group}\ISsample"; Filename: "{app}\ISsample.exe"  
 Name: "{group}\{cm:ProgramOnTheWeb,ISsample}"; Filename: "http://zwkufo.blog.163.com"  
 Name: "{group}\{cm:UninstallProgram,ISsample}"; Filename: "{uninstallexe}"  
 Name: "{commondesktop}\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: desktopicon  
 Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: quicklaunchicon  
 ;添加一个帮助文挡  
 Name: {group}\ISsample 1.0.0.0 帮助文档;Filename: {app}\ISsample.chm  
 ;用来在程序安装完成后 在安装程序显示最终对话框之前执行程序 常用与运行主程序 显示自述文件 删除临时文件  
 [Run]  
 Filename: "{app}\ISsample.exe"; Description: "{cm:LaunchProgram,ISsample}"; Flags: Nowait postinstall skipifsilent  
 Filename: "{app}\ISsample.txt"; Description: "查看显示自述文件"; Flags: postinstall skipifsilent shellexec  
 ;更改显示在程序中显示的消息文本  
 [Messages]  
 BeveledLabel=HKiss科技  
 ;卸载对话框说明  
 ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.  
 ;定义解压说明  
 ;StatusExtractFiles=解压并复制主程序文件及相关库文件...  
 ;用于在用户系统中创建，修改或删除ini文件健值  
 [INI]  
 Filename: "{app}\cfg.ini"; Section: "Startup Options"; Flags: uninsdeletesection  
 Filename: "{app}\cfg.ini"; Section: "Startup Options"; Key: "server ip"; String: "127.0.0.1"  
 Filename: "{app}\cfg.ini"; Section: "Startup Options"; Key: "server port"; String: "8080"  
 ;用于在用户系统中创建，修改或删除注册表健值  
 [Registry]  
 Root: HKLM ;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue  
 ;在执行脚本  
 [code]  
 //全局变量  
 var MyProgChecked: Boolean;  
 //判断程序是否存在  
 //初始华程序事件  
 function InitializeSetup(): boolean;  
 var Isbl: boolean;         //声明变量  
 var Isstr: string;  
 begin       //开始  
 Isbl := true;             //变量赋值  
 Isstr := '欢迎';  
 if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ISsample', 'config') then  
 begin  
     MsgBox('已安装过，请先卸载在安装',mbConfirmation, MB_OK);  
     isbl := false;  
 end else  
    //MsgBox('无值',248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important">      isbl := true;  
 end;  
 //下面是个麻烦的 条件语句 end else 注意  
 //if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then  
 //begin  
 // isbl := true;  
 // MsgBox('执行了',248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important"> //end else  
 // isbl := false;  
 //MsgBox('执行了',248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important"> //end;  
 Result := Isbl;  
 end;       //结束  
 procedure CurStepChanged(CurStep: TSetupStep);  
 var Isstr :string;  
 begin  
 if CurStep=ssInstall then       //实际安装前调用  
     //MsgBox('CurStepChanged:实际安装前调用', MB_OKCANCEL);           //安装完成后调用  
 if CurStep=sspostInstall then  
     Isstr := ExpandConstant('{tmp}\tmp.rar');  
 //    if FileExists(Isstr) then  
 //    begin  
 //      MsgBox('文件存在',248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important"> //    end else  
 //    begin  
 //      MsgBox('文件不存在', MB_OK);  
 //    end;  
    // MsgBox('CurStepChanged:实际安装后调用', MB_OKCANCEL);  
 end;  
 //下一步 按钮按钮 事件  
 function NextButtonClick(CurPageID: Integer): Boolean;  
 var ResultCode: Integer;  
 var IsSetup : Boolean;  
 IsSetup := true ;  
 case CurPageID of  
     wpSelectDir:  
        MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mb@R_121_4045@ion, MB_OK);   //WizardDirValue路径  
     wpSelectProgramGroup:  
        MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', MB_OK); //开始菜单名  
     wpReady:  
       begin  
        if not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Test', 'config') then   begin  
           if MsgBox('程序执行需要Test.ext,是否安装!', MB_YESNO) = idYes then begin  
            ExtractTemporaryFile('test.exe');  
             if not Exec(ExpandConstant('{tmp}\test.exe'), '', SW_SHOWnorMAL, ewWaitUntilTerminated, ResultCode) then  
               MsgBox('Test.exe出错:' #13#13 ' ' + SysErrorMessage(ResultCode) + '.', mbError,248); line-height:18px; margin:0px!important; padding:0px 3px 0px 10px!important">           end else begin  
                 IsSetup := false ;  
           end ;  
           BringToFrontAndRestore();  
         end;  
       end;  
 Result := IsSetup;  
 end;  
一个比较完整的Inno Setup 安装脚本

相关推荐
