如何把把两个应用做成一个包发行.txt

VB技巧问答10000例 VB技巧问答10000例

VB展开与打包向导生成的安装程序的工作步骤是这样的：先运行Setup.exe，这个程序将VB的运行库安装到用户的机器上，然后再调用Setup1.exe。Setup1.exe是由VB写的(正是这个原因所以要先安装VB的运行库)，其源程序可以在VB98\Wizards\PDWizard\Setup1中找到。所以如果你对VB的安装程序不满，就可以直接修改Setup1.vbp。对于你的问题，在VB中可以打开Setup1.vbp，然后修改Setup1.frm的Form_Load事件，在其中可以找到如下几行： 
    ExitSetup: 
     HideStaticMessageDialog 
     RestoreProgMan 
     If fWithinAction() Then 
     'By now, all logging actions should have been either aborted or committed. 
     MsgError ResolveResString(resSTILLWITHINACTION), vbExclamation Or vbOKOnly, gstrTitle 
     ExitSetup Me, gintRET_FATAL 
     End If 
     MoveAppRemovalFiles strGroupName 
     
     ExitSetup Me, gintRET_FINISHEDSUCCESS 
    这就是安装完毕退出安装程序的部分。你可以修改这里，询问是否安装另外一个软件。如果用户选择是，就使用Shell语句调用那个程序的安装程序。重新编译Setup1.vbp，用Setup1.exe替换原来的Setup1.exe即可。 
<END>