一个比较完整的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; ?
