原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Isetup安装程序的制作
教你用Visual Basic制作安装程序 出处： 作者： 安装程序制作是做项目必不可少的一道工序，网上的安装软件很多，可以用五花八门来开形容了 在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普通，不过内部却有不少窍门，相信这一点知道的人可能不多吧！！（请大家一定看到最后，好戏在后头）好了，不废话了，开始进入正题。
作者：? 运行打包向导，如下图所示：
点击“浏览”按钮，选择要打包的工程。然后单击“打包”按钮（在此只介绍打包，其他的功能不做介绍）。进入下一个页面，如下图所示：
选择要打包的类型，普通的ＥＸＥ工程选择“标准安装包”就可以了，控件之类的看使用的地点，如果是在网页中使用，请选择“Internet软件包”，然后点击“下一步”按钮。如下图所示：
选择包文件存放的位置（这一点不用多说了吧），如下图所示：
向导自动找出了工程中应用的控件、ＤＬＬ等文件，你需要自己到工程中检查一下，看看所包含的文件是否全，第三方控件所带的文件一定要带上，否则麻烦多多～～～，然后点击下一步，如下图所示：
选择打包的文件类型，根据需要，如果你发布是用光盘，则选择单个的压缩文件，如果发布是用软盘之类的，则选择多个压缩文件。（当然，这不是绝对的，用光盘你也可以选择多个压缩文件，不过可能没有人这么干～～～）。然后单击“下一步”。如下图所示：
确定安装程序的标题，就是在安装背景上显示的文字。然后单击“下一步”，如下图所示：
在这里你可以设置在“开始菜单”中显示哪些项目，比如你可以加卸载程序项，可以选择“新建项”按钮，然后在“目标”栏中输入$(WinPath)\st6unst.exe -n $(AppPath)\ST6UNST.LOG，包括双引号。在“开始”项目中选择“$(WinPath)”，不包括双引号。然后点击确定，如下图所示：
在此你可以更改文件夹的安装位置，然后点击“下一步”，如下图所示：
在此你可以将文件设置为共享（即文件可以被多个程序使用）。到此为止安装制作完成。
安装完之后会生成三个文件和一个文件夹，如下图所示：
SERTUP.LST 安装信息文件
.CAB文件包是数据文件，安装的文件全部在包里。
Setup.exe是安装的主文件。
Support是压缩包中所包含的所有文件。如下图所示：
? 这个文件夹里有一个比较重要的文件就是“执照套打.BAT”这个批处理文件（不同的工程，文件名会不一样），当你的工程改动之后，你可以将工程重新编译一下，然后将执行文件拷贝到此ＳＵＰＰＯＲＴ目录下，执行这个批处理文件，就可以重新打包，而不需要每次改动都运行打包向导了。
还有一个比较重要的文件就是SETUP１.EXE这个文件，他是安装的主文件，安装时我们看到的界面就是这个文件运行产生的。他是用ＶＢ写的，源程序在ＶＢ的安装目录下：“C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1\SETUP1.VBP”，你可以用ＶＢ直接来编辑此工程（ＶＢ的安装界面太丑了，所以你可以自己改动，改的怎么样就要看你自己的能力了），如果在安装之后想在桌面上加上程序的快捷方式，可以编译此工程，打开“frmSetup1”窗口，在其代码的第４６３行的位置上加如下代码：
Dim sProgramsPath As String
Dim sDesktopPath As String
sProgramsPath = GetSpecialFolder(sfidPROGRAMS)
sDesktopPath = GetSpecialFolder(sfidDESKTOP)
sProgramsPath = sProgramsPath \ gstrAppName \ gstrAppName .lnk
sDesktopPath = sDesktopPath \ gstrAppName .lnk
?FileCopy sProgramsPath, sDesktopPath
下面对向导生成的SERTUP.LST（安装信息文件）进行一下介绍，如下图所示：
这是文件的第一个区的内容，SetupTitle设置的是解压窗口的标题，SetupText设置的是解压窗口的内容。改动之后，如下图所示：
? 接下来介绍一下SERTUP.LST文件Setup区的作用，如下图所示：
改动Ｃolor为不同的值，可以改变安装窗口的背景色（默认为蓝色，看都看腻了）。改为１６之后为绿色（当然还有其他的颜色，你可以自己慢慢试～～～），效果如下图所示（这是我改动之后的ＶＢ自带的安装程序的安装界面，大
文档评论（0）