与安装工具包一起使用打包和展开向导

除了使用安装工具包工程来创建您的自定义安装工程外，还可以将安装工具包工程与打包和展开向导一起使用。在这种情况下，您可以使用安装工具包工程来自定义安装过程的屏幕或其它部分，然后使用向导来创建和部署应用程序的软件包。

例如，您可以将安装工具包与打包和展开向导一起使用，以便为安装工程添加对话框，提示用户指定是否安装应用程序的可选功能。例如，您可以提供一个联机帮助，而用户也可以不安装。可以按照您的需要添加任意的安装选项。

要为安装程序添加一个安装选项，请按照以下步骤执行：

  1. 在 Setup1.vbp 工程中，编辑 setup1.frm 窗体中的 Form_Load 事件的代码。要添加功能，可以在调用 ShowBeginForm 函数 (Sub ShowBeginForm) 的代码块之后添加代码。

    下面的示例显示了如何添加一个对话框，来询问用户是否要安装可选文件：

    Dim LoadHelp As Integer
LoadHelp = MsgBox ("Do you want to install Help? ", vbYesNo)
If LoadHelp = vbYes Then
CalcDiskSpace "Help"
EndIf
' 包含 cIcons = CountIcons(strINI FILES) 的代码块
If LoadHelp = vbYes Then
cIcons = CountIcons("Help")
EndIf
' 包含 CopySection strINI_FILES 的代码块。
If LoadHelp = vbYes Then
CopySection "Help"
EndIf
' 包含 CreateIcons, strINI FILES, strGroupName 的代码块
  2. 关闭 Setup1.frm，保存该窗体以及安装工具包工程，并编译创建 Setup1.exe 文件。

  3. 运行打包和展开向导，并从主屏幕中选择“打包”。

  4. 根据向导的各个屏幕进行适当的选择。对上面的示例，您可以在“添加和删除”屏幕中列出的“自定义”对话框中确认用户可以选择安装的所有可选文件。

  5. 在完成打包和展开向导的所有操作后，将生成发布媒体。

  6. 对 Setup.lst 文件进行任何必要的更改。在上面的示例中，您可以在代码的 CopySection 部分所使用的部分中添加一个新的部分。在这种情况下，这个部分可能会象下面这样： 
    [Help]
File1=MyApp.HL1,MyApp.HLP,$(AppPath),,,10/12/96,2946967,0.0.0
  7. 部署并测试您的软件包。 
    

    8. 




当用户运行本过程所示示例的安装程序时，安装程序将所有的 BootStrap 文件复制到用户机器，然后提示用户指明是否安装帮助文件。如果用户选择“是”，则 CalcDiskSpace 语句将确定在是否用户机器上是否有足够的磁盘空间来存放帮助文件。然后该程序安装 Setup.lst 中的 Setup1 Files 部分列出的所有文件。.



接下来，程序将再测试一次 LoadHelp 标记。如果用户选择安装帮助文件，Setup1.exe 就开始为帮助文件执行 CopySection 语句，然后安装 Setup.lst 的 [Help] 部分所列的文件。



详细信息   请参阅本章前面的“打包和展开向导”，了解有关该向导特性的详细信息。