vb打包如何创建桌面快捷方式？

Question

用vb打包程序，如何实现安装后再桌面出现快捷方式？
另外，卸载程序的快捷菜单怎样出现在开始菜单里？

Answer 1

如果希望在菜单中添加卸载选项，可以在制作安装程序包时加入相应的程序项。VB6的"Package & Deployment 向导"支持安装程序创建自己的程序组和菜单项。在"Package & Deployment 向导"的"启动菜单项"一步（下图），选择"新建项"按钮，此时会出现一个对话框。在对话框的 "名称"文本框中输入菜单项的名称，如"卸载VBTERM"。在"目标"框中输入卸载项的命令为：$(WinPath)\st6unst.exe -n "$(AppPath)\ST6UNST.LOG" 。然后选择确定关闭该对话框。这样生成的安装程序中将包括一个卸载程序的菜单项。

Answer 2

VB展开与打包向导生成的安装程序的工作步骤是这样的：先运行Setup.exe，这个程序将VB的运行库安装到用户的机器上，然后再调用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中加上： 
    （VB 5.0中） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我的程序", gstrDIR_DEST + "MyProg.exe", "" 
    （VB 6.0中） 
    OSfCreateShellLink "..\..\Desktop", _ 
     "我的程序", gstrDIR_DEST + "MyProg.exe", "", True, "$(Programs)" 
    重新编译Setup1.vbp，用Setup1.exe替换原来的Setup1.exe即可。

Answer 3

外包的固然好， 可是不好用啊
setupfact
installfield

Answer 4

多谢china009（无影追风）！
我试试！---先

Answer 5

to:china009（无影追风）
我照着做了其中一个问题解决了---非常感谢！
另外：桌面快捷方式还是没有出现，
OSfCreateShellLink "..\..\Desktop", _ 
     "我的程序", gstrDIR_DEST + "MyProg.exe", "", True, "$(Programs)" 
是把这一句加进去就可以了吗？