INNO 的安装脚本事例

;参考了许多脚本例子，这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等; 脚本用 Inno Setup 脚本向导生成。; 查阅文档获取创建 INNO SETUP 脚本文件详细资料![Setup]AppName= 天翔纤维检验管理系统AppVerName=天翔纤维检验管理系统 V2008AppPublisher=青岛天翔软件有限公司AppPublisherURL=http://www.tinsoft.cnAppSupportURL=http://www.tinsoft.cnAppUpdatesURL=http://www.tinsoft.cnDefaultDirName= {pf}/天翔纤维检验管理系统DefaultGroupName=天翔纤维检验管理系统LicenseFile=D:/安装程序 /FiberTest/Lisence.txtOutputDir=D:/安装程序/FiberTest/OutOutputBaseFilename=SetupCompression=lzmaSolidCompression=yes[Languages]Name: chi; MessagesFile: compiler:Default.isl[Tasks]Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: uncheckedName: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked[Types]Name: full; Description: 完全安装Name: Client; Description: 客户端安装Name: Server; Description: 服务器端安装Name: Custom; Description: 定制安装; Flags: iscustom[Components]Name: main; Description: 必须组件; Types: full Client Server Custom; Flags: fixedName: Server; Description: 服务器组件; Types: full ServerName: Client; Description: 客户端组件; Types: full ClientName: Custom; Description: 定制组件; Types: Custom[Files]Source: 安装文件/FiberTest.exe; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: 安装文件/Data/*; DestDir: {app}/Data; Flags: ignoreversion recursesubdirs createallsubdirs; Components: ServerSource: 安装文件/Report/*; DestDir: {app}/Report; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Client; Tasks:Source: 安装文件/UPower.ini; DestDir: {app}; Components: ClientSource: D:/安装程序/FiberTest/安装文件/background.bmp; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: D:/安装程序/FiberTest/安装文件/FiberTest.chm; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: 安装文件/FiberTest.ini; DestDir: {app}; Components: ClientSource: D:/安装程序/FiberTest/安装文件/PY.dll; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: D:/安装程序/FiberTest/安装文件/PY.exe; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: D:/安装程序/FiberTest/安装文件/TinsZip.dll; DestDir: {app}; Flags: ignoreversion; Components: ClientSource: 安装文件/UPower.exe; DestDir: {app}; Flags: ignoreversion; Components: Client; 注意: 不要在任何共享系统文件中使用“Flags: ignoreversion”[Icons]Name: {group}/天翔纤维检验管理系统; Filename: {app}/FiberTest.exeName: {group}/使用手册; Filename: {app}/FiberTest.chm; IconFilename: {app}/FiberTest.chm; Tasks: ; Languages:Name: {group}/{cm:UninstallProgram,天翔纤维检验管理系统}; Filename: {uninstallexe}Name: {userdesktop}/天翔纤维检验管理系统; Filename: {app}/FiberTest.exe; Tasks: desktopiconName: {userappdata}/Microsoft/Internet Explorer/Quick Launch/天翔纤维检验管理系统; Filename: {app}/FiberTest.exe; Tasks: quicklaunchicon[Run]Filename: {app}/FiberTest.exe; Description: {cm:LaunchProgram,天翔纤维检验管理系统}; Flags: nowait postinstall skipifsilent unchecked; Components: ; Tasks: ; Languages:Filename: {app}/UPower.exe; Flags: nowait postinstall unchecked skipifsilent[INI]Filename: D:/安装程序/FiberTest/安装文件/UPower.ini; Section: UPower; Key: ConnectString; String: "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=FiberTest;Data Source={code:GetServer}"Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: ApplicationTitle; String: 天翔管理系统Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: ConnString; String: "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=FiberTest;Data Source={code:GetServer}"; Components: ; Tasks: ; Languages:Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: SocketServer; String: localhostFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: SocketPort; String: 211Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: ServerName; String: UPower.UserPowerFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: BillNOLen; String: 10Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: BillPrintPreview; String: 1Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: BillPrint; String: 0Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: COMConnection; String: 1Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: DatabaseType; String: MSSQLFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: DepartmentID; String: TinsFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: Department; String: TinsFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: WebNav; String:Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 单位名称; String: TINSFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 输入法; String: 中文 (简体) - 微软拼音Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 任务单号自动生成; String: 1Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 打印预览; String: 1Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 条码打印机; String: Microsoft Office Document Image WriterFilename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 普通打印机; String: EPSON ME 1Filename: D:/安装程序/FiberTest/安装文件/FiberTest.ini; Section: FiberTest; Key: 打印机选择; String: 0[Code]{关于数据库操作}//http://hi.baidu.com/can2786/blog/item/e8c296cefeacdf0692457ef0.html// 说明一下：这块程序的前半部分在INNO SETUP的实例里面就有，而后面如果对数据库进行备份和还原在实例里面没有，在网上也不好找，是本人费了好大劲一句一句试出来的，请大家转摘时注明，以表示对个人劳动的尊重。谢谢！{--- SQLDMO ---} //关于SQLDMO的相关知识大家可以去网上搜const//SQL 服务器名称，这个名称在安装SQL时会要求有个服务器名称的输入，所有每台机器上打开SQL服务器时看到的名称都不一样，如我如下图，但这里我们可以用一个通用的名称，就是（local），表示这个服务器是本地的。这样就可以了。//SQLServerName = '(LOCAL)';SQLDMOGrowth_MB = 0;var UserPage: TInputQueryWizardPage; UsagePage: TInputOptionWizardPage; LightMsgPage: TOutputMsgWizardPage; KeyPage: TInputQueryWizardPage; ProgressPage: TOutputProgressWizardPage; DataDirPage: TInputDirWizardPage; SQLServerName:String; //数据库的创建与还原事件写完了，但是它不会智能的知道什么时候去执行，所以我们要告诉它什么时候执行。下面是在程序安装完，在结束页面上建立了一个ＢＵＴＴＯＮ按钮，当按下这个按钮时，会执行数据库的事件响应。{---}//创建一个buttonprocedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);beginwith TButton.Create(WizardForm) do //button对象的创建begin Left := ALeft; //button的位置与宽高 Top := ATop; Width := WizardForm.CancelButton.Width; Height := WizardForm.CancelButton.Height; Caption := ACaption; //button的名称 OnClick := ANotifyEvent; //这个是给创建的button指定一个父窗口，也就是说让它在哪个页面上边显示出来 Parent := WizardForm.FinishedPage; //这里指定的是窗体的结束页end;end;//这是创建一个按钮按下的事件，这个按钮就是在安装向导中页面中建立的一个“配置数据库”的按钮procedure SQLDMOButtonOnClick(Sender: TObject);var//用到的一些变量SQLServer, Database, DBFile, LogFile: Variant;IDColumn, NameColumn, Table,oBackup,oRestore: Variant;db_path:string;//这个变量用来保存读取注册表的键值ResultStr: String;begin{ Create the main SQLDMO COM Automation object }//检查是否已安装SQLtry SQLServer := CreateOleObject('SQLDMO.SQLServer');except RaiseException('您还没有安装SQL数据库.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');end;{ Connect to the Microsoft SQL Server }//连接SQLSQLServer.LoginSecure := True;SQLServer.Connect(SQLServerName);//SQLServer.Connect(SQLServerName,'sa','');//MsgBox('连接到SQL服务器 ''' + SQLServerName + '''.', mbInformation, mb_Ok);{ Setup a database }try MsgBox(ExpandConstant('{app}')+'/data/FiberTest_Data.MDF;'+ExpandConstant('{app}')+'/data/FiberTest_Log.LDF', mbInformation, mb_Ok); //SQLServer.AttachDB('FiberTest',ExpandConstant('{app}')+'/data/FiberTest_Data.MDF;'+ExpandConstant('{app}')+'/data/FiberTest_Log.LDF'); SQLServer.AttachDBWithSingleFile('FiberTest',ExpandConstant('{app}')+'/data/FiberTest_Data.MDF'); MsgBox('数据库安装成功!', mbInformation, mb_Ok);except MsgBox('数据库安装失败!', mbInformation, mb_Ok);end;{//创建SQL数据库文件Database := CreateOleObject('SQLDMO.Database');Database.Name := 'FiberTest'; //要创建的数据库名称DBFile := CreateOleObject('SQLDMO.DBFile');DBFile.Name := 'FiberTestData1';// 数据库记录DBFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/FiberTest_Data.MDF';DBFile.PrimaryFile := True;DBFile.FileGrowthType := SQLDMOGrowth_MB;DBFile.FileGrowth := 1;Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);LogFile := CreateOleObject('SQLDMO.LogFile');LogFile.Name := 'FiberTestLog1';//数据库日记LogFile.PhysicalName := 'c:/program files/microsoft sql server/mssql/data/FiberTest_Log.LDF';Database.TransactionLog.LogFiles.Add(LogFile);// Add the database//添加数据库SQLServer.Databases.Add(Database);}//MsgBox('Added database ''' + Database.Name + '''.', mbInformation, mb_Ok);{// 数据备份 oBackup := CreateOleObject('SQLDMO.Backup'); //创建一个备份对象 oBackup.Database := 'louyu'; //要备份的数据库名称 oBackup.Files := 'f:/louyu3.bak'; //备份到什么地方 oBackup.BackupSetName := 'louyu3.bak'; //备份的名称 oBackup.BackupSetDescription := 'bakDescription'; oBackup.Initialize := true; oBackup.SQLBackup(sqlServer); //执行SQL备份操作//数据还原//重点说明：//数据库的备份文件在打好的包中的某个位置，要还原数据库首先要找到备份的文件，找备份的文件的话在这之前还要知道软件安装到了什么地方，也就是安装路径。在程序安装时我们在注册表中建立了相关信息，其中有软件安装路径的记录，关于注册表请查阅前面写的“INNO SETUP注册表的添加与读取”。//为什么还原数据库时用这种方法呢，好像是绕了个圈子一样，其实我也认为这可能不是一种好方法，但是在这我不知道还有什么别的方法来获得安装包中的数据（文件）或软件要安装的路径。app、pf等在这都无法直接使用，所以才用了这种笨方法。//如果哪位朋友有好方法，请告知我。//从注册表中获得程序安装的路径，根据路径找到还原数据库的备份文件。if RegQueryStringValue(HKLM, 'SOFTWARE/*******', 'Server', ResultStr) thenbegin ResultStr := RemoveQuotes(ResultStr); msgbox(resultstr,mbinformation,mb_ok); try oRestore := CreateOleObject('SQLDMO.Restore'); //创建还原对象 oRestore.Database := 'dbase'; //还原的数据库名称 db_path:=resultstr + '/数据库文件/dbase.bak'; //备份文件的路径 MsgBox(db_path,mbinformation,mb_ok); //测试一下看路径对不对 oRestore.files :=db_path; //指定备份文件 oRestore.replacedatabase := true; oRestore.sqlrestore(sqlserver); //执行还原操作 MsgBox('数据库还原成功!',mbinformation,mb_ok); except MsgBox('数据库还原失败!,请重试或查阅帮助文档进行手动配置!',mbinformation,mb_ok); end;end;}end;procedure InitializeWizard;varLeft, Top, TopInc: Integer;begin//Left := WizardForm.WelcomeLabel2.Left;//TopInc := WizardForm.CancelButton.Height + 8;//Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc;//CreateButton(Left, Top, '安装数据库(&S)', @SQLDMOButtonOnClick); { 创建页面 } UserPage := CreateInputQueryPage(wpWelcome, '服务器信息', '请填写服务器的名称，该服务器为安装了SQL Server的计算机。', '请指定你的名字和公司，然后单击“下一步”。'); UserPage.Add('服务器名称:', False); UsagePage := CreateInputOptionPage(UserPage.ID,'安装选择', '进行客户端还是服务器端安装？','请指定你想安装的方式，然后单击“下一步”。', True, False); UsagePage.Add('安装数据库'); UsagePage.Add('不安装数据'); {设置默认值，如果可能，使用这些设置最后一次贮存} UserPage.Values[0] := GetPreviousData('Name', ExpandConstant('{computername}')); case GetPreviousData('UsageMode', '') of 'Server': UsagePage.SelectedValueIndex := 0; 'Client': UsagePage.SelectedValueIndex := 1; else UsagePage.SelectedValueIndex := 1; end;end;procedure RegisterPreviousData(PreviousDataKey: Integer);var UsageMode: String;begin { 贮存你可以下次进行恢复的设置 } SetPreviousData(PreviousDataKey, 'Name', UserPage.Values[0]); case UsagePage.SelectedValueIndex of 0: UsageMode := 'Server'; 1: UsageMode := 'Client'; end;end;function ShouldSkipPage(PageID: Integer): Boolean;begin { 跳过不显示的页面 }end;function NextButtonClick(CurPageID: Integer): Boolean;var I: Integer;begin { 在用户继续前进行验证 } if CurPageID = UserPage.ID then begin if UserPage.Values[0] = '' then begin MsgBox('你必须输入服务器的名字。', mbError, MB_OK); Result := False; end else begin SQLServerName:=UserPage.Values[0]; Result := True;end; end elseResult :=True;end;function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;var S: String; Left, Top, TopInc: Integer;begin { 填写带普通设置和自定义设置的“准备演示” } S := ''; S := S + '服务器名称:' + NewLine; S := S + Space + UserPage.Values[0] + NewLine; S := S + NewLine; S := S + '使用模式:' + NewLine + Space; case UsagePage.SelectedValueIndex of 0: S := S + '服务器端'; 1: S := S + '客户端'; end; S := S + NewLine + NewLine; S := S + MemoDirInfo + NewLine; Result := S; Left := WizardForm.WelcomeLabel2.Left; TopInc := WizardForm.CancelButton.Height + 8; Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - 4*TopInc; if UsagePage.SelectedValueIndex = 0 thenCreateButton(Left, Top, '安装数据库(&S)', @SQLDMOButtonOnClick);end;function GetServer(Param: String): String;begin Result := UserPage.Values[0];end;function GetUser(Param: String): String;begin { Return a user value } { Could also be split into separate GetUserName and GetUserCompany functions } if Param = 'Name' then Result := UserPage.Values[0];end;