辛辛苦苦，写了个INNO的安装脚本

;参考了许多脚本例子，这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等

; 脚本用 Inno Setup 脚本向导生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!

[Setup]
AppName=天翔纤维检验管理系统
AppVerName=天翔纤维检验管理系统 V2008
AppPublisher=青岛天翔软件有限公司
AppPublisherURL=http://www.tinsoft.cn
AppSupportURL=http://www.tinsoft.cn
AppUpdatesURL=http://www.tinsoft.cn
DefaultDirName={pf}\天翔纤维检验管理系统
DefaultGroupName=天翔纤维检验管理系统
LicenseFile=D:\安装程序\FiberTest\Lisence.txt
OutputDir=D:\安装程序\FiberTest\Out
OutputBaseFilename=Setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: chi; MessagesFile: compiler:Default.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: 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: fixed
Name: Server; Description: 服务器组件; Types: full Server
Name: Client; Description: 客户端组件; Types: full Client
Name: Custom; Description: 定制组件; Types: Custom

[Files]
Source: 安装文件\FiberTest.exe; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: 安装文件\Data\*; DestDir: {app}\Data; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Server
Source: 安装文件\Report\*; DestDir: {app}\Report; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Client; Tasks:
Source: 安装文件\UPower.ini; DestDir: {app}; Components: Client
Source: D:\安装程序\FiberTest\安装文件\background.bmp; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: D:\安装程序\FiberTest\安装文件\FiberTest.chm; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: 安装文件\FiberTest.ini; DestDir: {app}; Components: Client
Source: D:\安装程序\FiberTest\安装文件\PY.dll; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: D:\安装程序\FiberTest\安装文件\PY.exe; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: D:\安装程序\FiberTest\安装文件\TinsZip.dll; DestDir: {app}; Flags: ignoreversion; Components: Client
Source: 安装文件\UPower.exe; DestDir: {app}; Flags: ignoreversion; Components: Client

; 注意: 不要在任何共享系统文件中使用“Flags: ignoreversion”

[Icons]
Name: {group}\天翔纤维检验管理系统; Filename: {app}\FiberTest.exe
Name: {group}\使用手册; Filename: {app}\FiberTest.chm; IconFilename: {app}\FiberTest.chm; Tasks: ; Languages:
Name: {group}\{cm:UninstallProgram,天翔纤维检验管理系统}; Filename: {uninstallexe}
Name: {userdesktop}\天翔纤维检验管理系统; Filename: {app}\FiberTest.exe; Tasks: desktopicon
Name: {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: localhost
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: SocketPort; String: 211
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: ServerName; String: UPower.UserPower
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: BillNOLen; String: 10
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: BillPrintPreview; String: 1
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: BillPrint; String: 0
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: COMConnection; String: 1
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: DatabaseType; String: MSSQL
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: DepartmentID; String: Tins
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: Department; String: Tins
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: WebNav; String:
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 单位名称; String: TINS
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 输入法; String: 中文 (简体) - 微软拼音
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 任务单号自动生成; String: 1
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 打印预览; String: 1
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 条码打印机; String: Microsoft Office Document Image Writer
Filename: D:\安装程序\FiberTest\安装文件\FiberTest.ini; Section: FiberTest; Key: 普通打印机; String: EPSON ME 1
Filename: 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;

 

//数据库的创建与还原事件写完了，但是它不会智能的知道什么时候去执行，所以我们要告诉它什么时候执行。下面是在程序安装完，在结束页面上建立了一个ＢＵＴＴＯＮ按钮，当按下这个按钮时，会执行数据库的事件响应。
{---}
//创建一个button
procedure CreateButton(ALeft, ATop: Integer; ACaption: String; ANotifyEvent: TNotifyEvent);
begin
with 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 }

//检查是否已安装SQL
try
  SQLServer := CreateOleObject('SQLDMO.SQLServer');
except
  RaiseException('您还没有安装SQL数据库.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
end;

{ Connect to the Microsoft SQL Server }

//连接SQL
SQLServer.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) then
begin
  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;
var
Left, 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
  else
Result :=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 then
CreateButton(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;