200512258785

Visual Basic 安装程序制作

　　 安装程序制作是做项目必不可少的一道工序，网上的安装软件很多，可以用五花八门来开形容了~~~~

在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普通，不过内部却有不少窍门，相信这一点知道的人可能不多吧！！（请大家一定看到最后，好戏在后头）好了，不废话了，开始进入正题。

作者：崔占民

　　　　　　　　　　　　　　　　　　　　Email:[email protected]



　　①运行打包向导，如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>



　　②点击“浏览”按钮，选择要打包的工程。然后单击“打包”按钮（在此只介绍打包，其他的功能不做介绍）。进入下一个页面，如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　③选择要打包的类型，普通的ＥＸＥ工程选择“标准安装包”就可以了，控件之类的看使用的地点，如果是在网页中使用，请选择“Internet软件包”，然后点击“下一步”按钮。如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　④选择包文件存放的位置（这一点不用多说了吧），如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　⑤向导自动找出了工程中应用的控件、ＤＬＬ等文件，你需要自己到工程中检查一下，看看所包含的文件是否全，第三方控件所带的文件一定要带上，否则麻烦多多～～～，然后点击下一步，如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　⑥选择打包的文件类型，根据需要，如果你发布是用光盘，则选择单个的压缩文件，如果发布是用软盘之类的，则选择多个压缩文件。（当然，这不是绝对的，用光盘你也可以选择多个压缩文件，不过可能没有人这么干～～～）。然后单击“下一步”。如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　⑦确定安装程序的标题，就是在安装背景上显示的文字。然后单击“下一步”，如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　⑧在这里你可以设置在“开始菜单”中显示哪些项目，比如你可以加卸载程序项，可以选择“新建项”按钮，然后在“目标”栏中输入$(WinPath)st6unst.exe -n “$(AppPath)ST6UNST.LOG”，包括双引号。在“开始”项目中选择“$(WinPath)”，不包括双引号。然后点击确定，如下图所示：

javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

　　⑨在此你可以更改文件夹的安装位置，然后点击“下一步”，如下图所示：
javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;”>

⑩在此你可以将文件设置为共享（即文件可以被多个 程序使用）。到此为止安装制作完成。　　

　　 安装完之后会生成三个文件和一个文件夹，如下图所示：　　



　　 SERTUP.LST　　　安装信息文件
　　 .ＣＡＢ文件包是数据文件，安装的文件全部在包里。
　　 Setup.exe是安装的主文件。
　　 Support是 压缩 包中所包含的所有文件。如下图所示：


　　 这个文件夹里有一个比较重要的文件就是“执照套打.BAT”这个批处理文件（不同的工程，文件名会不一样），当你的工程改动之后，你可以将工程重新编译一下，然后将执行文件拷贝到此ＳＵＰＰＯＲＴ目录下，执行这个批处理文件，就可以重新打包，而不需要每次改动都运行打包向导了。　
　　 还有一个比较重要的文件就是SETUP１.EXE这个文件，他是安装的主文件，安装时我们看到的界面就是这个文件运行产生的。他是用ＶＢ写的，源程序在ＶＢ的安装目录下：“C:Program FilesMicrosoft Visual StudioVB98WizardsPDWizardSetup1SETUP1.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为不同的值，可以改变安装窗口的背景色（默认为蓝色，看都看腻了）。改为１６之后为绿色（当然还有其他的颜色，你可以自己慢慢试～～～），效果如下图所示（这是我改动之后的ＶＢ自带的安装程序的安装界面，大家觉得怎么样，是不是不比其他的一些安装 软件 的界面逊色）：　



　　 好了，安装程序就介绍到这了，当然了，ＶＢ的安装程序完全是ＶＢ自己做的，到底怎么改以及改动的漂亮与否，就要看你自己的水平与美术功底了，反正安装程序的源码都给你了，你想怎么做都行！