(2)在d出的窗体中选择“打包和展开向导”(最后一项),在加载行为中选择“加载/卸载”,确定。
(3)再次单击“外接程序”菜单项,单击“打包和展开向导”。
(4)单击“打蠢纳包”,缺耐选择“标准安装包”,一直单击下一步,最后点“完成”,点“关闭”。
(5)此时你的工程文件夹下会有一个名为“包”的文件夹。
(6)单击“展开”,单击下一步(2个),此时询问“您希望在哪里展开这个包?”,单击“新建文件夹”
在电脑中其他位置新建一个文件夹,单击下一步,点“完伏档春成”,点“关闭”。
(7)关闭“打包和展开向导”。
(8)在刚才建立的文件夹下就是安装程序了!(三个文件:工程名.cab setup.exe setup.lst)^_^
直接把vb6编的Exe和Dll放到一个目录巧数内,拷贝到win7的电脑上就能用。打包目前不可以。建议使孝肆首用Delphi 编写的Inno Setup进行打雹亩包,自定义性强。如果还是不行,检查你的系统是否为原版系统。部分**修改版为了控制大小将原版的5G运行库精简。同样也可以下载安装vbrun60sp6.exe和vbrun60sp5.exe补充vb的运行库除了使用安装工具包工程来创建您的自定义安装工程外,还可以将安装工具包工程与打包和展开向导一起使用。在这种情况下,您可以使用安装工具包工程来自定义安装过程的屏幕或其它部分,然后使用向导来创建和部署应用程序的软件包。例如,您可以将安装工具包与打包和展开向导一起使用,以便为安装工程添加对话框,提示用户指定是否安装应用程序的可选功能。例如,您可以提供一个联机帮助,而用户也可以不安装。可以按照您的需要添加任意的安装选项。
要为安装程序添加一个安装选项,请按照以下步骤执行:
在
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
的代码块
关闭
Setup1.frm,保存该窗体以及安装工具包工程,并编译创建
Setup1.exe
文件。
运行打包和展开向导,并从主屏幕中选择“打包”。
根据向导的各个屏幕进行适当的选择。对上面的示例,您可以在“添加和删除”屏幕中列出的“自定义”对话框中确认用户可以选择安装的所有可选文件。
在完成打包和展开向导的所有 *** 作后,将生成发布媒体。
对
Setup.lst
文件进行任何必要的更改。在上面的示例中,您可以在代码的
CopySection
部分所使用的部分中添加一个新的部分。在这种情况下,这个部分可能会象下面这样:
[Help]
File1=MyApp.HL1,MyApp.HLP,$(AppPath),,,10/12/96,2946967,0.0.0
部署并测试您的软件包。
当用户运行本过程所示示例的安装程序时,安装程序将所有的
BootStrap
文件复制到用户机器,然后提示用户指明是否安装帮助文件。如果用户选择“是”,则
CalcDiskSpace
语句将确定在是否用户机器上是否有足够的磁盘空间来存放帮助文携睁桥件。然后该程序安装
Setup.lst
中的
Setup1
Files
部分列出的所有文件。.
接下来,程序将再测试一次
LoadHelp
标记。如果用户选择安装帮助文件,Setup1.exe
就开始为帮助文件执早穗行
CopySection
语句,然后安装
Setup.lst
的
[Help]
部分所列的文件。
详细信息
请参阅本章前面的“打包和展开向导”,了解有关该向导特性的详细信息。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)