VB6自带Package & Deployment 生成桌面快捷方式

修改Setup1程序，该程序位于：C:\Program     Files\Microsoft     Visual     Studio\VB98\Wizards\PDWizard\Setup1目录下  

在安装完成时，利用代码在桌面创建一个快捷方式即可

---------------------------------------------------------------  

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 Or (cIcons > 0) 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",     "",     True,     "$(Programs)"    

        重新编译Setup1.vbp，用Setup1.exe替换原来的Setup1.exe即可。  

 

以上需要更改 gstrDIR_DEST 为 gstrdestdir ，Desktop 可能需要修改为“桌面”，这个是情况而定！