用VB6的打包工具做安装程序如何在安装完毕在桌面上建立一个快捷方式

Question

建议用installshield for vb!用VB自带的那东东恐怕不行啊~

Answer 1

没见到那个东东,那里下，见过for VC,for delphi 的。

Answer 2

我见过一篇文章是这样介绍的，你看行不行.VB“展开与打包向导”所生成的安装程序的工作步骤是这样的：先运行Setup.exe，这个程序将VB的运行库安装到用户的机器上，同时将.cab文件中的文件释放到临时目录中，然后再调用临时目录中Setup1.exe完成余下的安装工作。Setup1.exe是由VB写的(正是这个原因所以要先安装VB的运行库)，其源程序可以在VB98\Wizards\PDWizard\Setup1中找到。如果你对VB的安装程序不满意，希望添加新功能，可以直接修改Setup1.vbp。具体到你的问题，在VB中可以打开Setup1.vbp，然后修改Setup1.frm的Form-Load事件，在其中可以找到如下几行： 　　′　　′ Create program icons (or links, i.e. shortcuts). 　　′ If (fMainGroupWasCreated = True) Or ((cIcons > 0) And TreatAsWin95()) Then 　　　　ShowStaticMessageDialog ResolveResString(resPROGMAN) 　　　　CreateIcons gsICONGROUP 　　 ′Do the same for other sections in SETUP.LST if you′ve added your own. 　　 ′CreateIcons ″MySection″ 　　 ′CreateIcons ″MyOtherSection″ 　　 End If 　　在If.. End If中加上： 　　OSfCreateShellLink "..\..\Desktop", _ 　　　　　　 "我的程序", gstrDIR-DEST+"MyProg.exe", " " 　　重新编译Setup1.vbp，用Setup1.exe替换掉原来的Setup1.exe即可。