安装程序的两个问题，请教大家！谢谢！！

Question

我知道Wise 是有这个窗口且很易加上！

Answer 1

修改"C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1\SETUP1.VBP"
生成"C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1.exe"
然后重新打包你的程序

Answer 2

问题: 如何在 VB6 的集成开发环境中修改、运行、跟踪、调试 VB6 提供的安装源程序 Setup1.VBP?
解答: 方法一:
        1.在默认情况下新建 "标准 EXE" 工程,编译生成 EXE,再用 "Package & Deployment 向导" 将其打包。
        2.在操作系统下运行(双击)该包的 setup.exe (例如: \..\setupdemo\包\setup.exe),此时出现 "某某 安装程序"
          的窗口,以后就不要再做任何响应了!
        3.用 VB6 打开 \vb98\wizards\pdwizard\setup1\setup1.vbp 修改 setup1.vbp 的 
          "工程属性" => "生成" => "命令行参数" 为适应你的操作系统环境的参数!
          (例如: \..\setupdemo\包\setup.exe c:\windows\st6unst.001 c:\windows\st6unst.exe)
        4.F5 运行 Setup1.VBP,你就可以为所欲为、肆无忌惮地修改调试跟踪 setup1.vbp了!
          下面以最简单的方式为 Setup 添加"序列号"确认的功能:
          将 frmWelcome 窗体的代码:
          Private Sub cmdOK_Click()
          If VBA.Trim(VBA.InputBox(vbCrLf & "请先输入" & vbCrLf & "Product Key:", "欢迎使用本产品")) = "playyuer" Then
             Unload Me
          Else
             VBA.MsgBox "序列非法!", vbCritical, "错误"
          End If
          End Sub
          然后 make 成 Setup1.exe,再用其替换 VB 安装目录下 \Wizards\PDWizard 的同名文件!
          (提示: 如果要添加新的窗体,最好要使用"标准控件"。)
       方法二:
         参阅:
         HOWTO: Run Setup1.vbp in the Design Environment (Q189738)
         http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q189738