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

从网上搜索来的，增加了对ini文件设置的功能，一个安装包常用的功能都具备了。 [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:ExampleInnoSetupout ;输出文件名 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原始文件chsagreement.txt" Name: "en"; MessagesFile: "compiler:LanguagesEnglish.isl";LicenSeFile :"C:Example原始文件enagreement.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原始文件Taskstasks_1.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks : Tasks_1 Source: "C:Example原始文件Taskstasks_2.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks :Tasks_2 Source: "C:Example原始文件Taskstasks_Components.txt"; DestDir: "{app}Tasks"; Flags: ignoreversion ;Tasks :Tasks_2 ;用户定义组件安装 Source: "C:Example原始文件ComponentsComponents_1.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a1; Source: "C:Example原始文件ComponentsComponents_2.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a2; Source: "C:Example原始文件ComponentsComponents_3.txt"; DestDir: "{app}Components"; Flags: ignoreversion ; Components: a3; Source: "C:Example原始文件ComponentsComponents_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}MicrosoftInternet ExplorerQuick LaunchISsample"; 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:"SoftwareISsample";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,'SOFTWAREISsample','config') then begin ? ? MsgBox('已安装过，请先卸载在安装',mbConfirmation,MB_OK); ? ? isbl := false; end else begin ? ?//MsgBox('无值',MB_OK); ? ? ?isbl := true; end; //下面是个麻烦的 条件语句 end else 注意 //if MsgBox(Isstr,MB_OKCANCEL) = IDOK then //begin // isbl := true; // MsgBox('执行了',MB_OK); //end else //begin // isbl := false; //MsgBox('执行了',MB_OK); //end; Result := Isbl; end; ? ? ? //结束 procedure CurStepChanged(CurStep: TSetupStep); var Isstr :string; begin if CurStep=ssInstall then ? ? ? //实际安装前调用 begin ? ? //MsgBox('CurStepChanged:实际安装前调用',MB_OKCANCEL); ? ? ? ? ? //安装完成后调用 end; if CurStep=ssPostInstall then begin ? ? Isstr := ExpandConstant('{tmp}tmp.rar'); // ? ?if FileExists(Isstr) then // ? ?begin // ? ? ?MsgBox('文件存在',MB_OK); // ? ?end else // ? ?begin // ? ? ?MsgBox('文件不存在',MB_OK); // ? ?end; ? ?// MsgBox('CurStepChanged:实际安装后调用',MB_OKCANCEL); end; end; //下一步 按钮按钮 事件 function NextButtonClick(CurPageID: Integer): Boolean; var ResultCode: Integer; var IsSetup : Boolean; begin IsSetup := true ; case CurPageID of ? ? wpSelectDir: ? ? ? ?MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.',mbInformation,MB_OK); ? //WizardDirValue路径 ? ? wpSelectProgramGroup: ? ? ? ?MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.',MB_OK); //开始菜单名 ? ? wpReady: ? ? ? begin ? ? ? ?if not RegValueExists(HKEY_LOCAL_MACHINE,'SOFTWARETest','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,MB_OK); ? ? ? ? ? end else begin ? ? ? ? ? ? ? ? IsSetup := false ; ? ? ? ? ? end ; ? ? ? ? ? BringToFrontAndRestore(); ? ? ? ? end; ? ? ? end; end; Result := IsSetup; end;