VB6 打开生成包，安装时有生成桌面快捷 提示，但桌面并没生成快捷方式。求帮看一下，不胜感激。

        If MsgBox("是否要创建桌面快捷方式？ ", 32 + 4, "创建桌面快捷方式") = vbYes Then
        OSfCreateShellLink "../../Desktop", InkName, InkPath, "", True, "$(Programs)"
        OSfCreateShellLink "../../桌面", InkName, InkPath, "", True, "$(Programs)"
        End If

[此贴子已经被作者于2022-10-8 14:58编辑过]

这段代码要加在用户程序中？

[此贴子已经被作者于2022-10-9 05:13编辑过]

VB6.0  Package & Deployment 向导

[此贴子已经被作者于2022-10-8 20:55编辑过]