| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1321 人关注过本帖
标题:求助:VB 打包生成桌面快捷
只看楼主 加入收藏
sdgzs
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-11-23
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
求助:VB 打包生成桌面快捷
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编辑过]

搜索更多相关主题的帖子: 桌面 生成 VB VB 生成 打包 创建 创建 打包 桌面 
2022-10-08 14:48
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:20 
程序代码:
Public Sub mShellLnk(ByVal LnkName As String, ByVal FilePath As String, Optional ByVal StrArg As String, Optional ByVal IconFileIconIndex As String = vbNullString, Optional ByVal HookKey As String = "", Optional ByVal StrRemark As String = "")

    '调用说明:
    'LnkName = 快捷方式文件名,如果无路径则自动新建到桌面;无后缀名(.lnk)会自动补齐.
    'FilePath = 目标文件名,全路径.
    'StrArg = 参数,可选.
    'IconFileIconIndex = 图标所在库及索引,由逗号分隔,可选.如: "c:\windows\system32\notepad.exe,0"
    'HookKey = 热键,值未知,可选.
    'StrRemark = 备注,可选.
  
    Dim WshShell As Object, oShellLink As Object, strDesktop As String

    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")

    If UCase(Right(LnkName, 4)) <> ".LNK" Then
        LnkName = LnkName & ".lnk"
    End If

    If InStr(1, LnkName, "\", vbTextCompare) = 0 Then
        Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & LnkName)
    Else
        Set oShellLink = WshShell.CreateShortcut(LnkName)
    End If

    oShellLink.TargetPath = FilePath
    oShellLink.Arguments = StrArg
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = HookKey

    If IconFileIconIndex = vbNullString Then
        oShellLink.IconLocation = FilePath & ",0"
    Else
        oShellLink.IconLocation = IconFileIconIndex
    End If

    oShellLink.Description = StrRemark
    oShellLink.WorkingDirectory = Mid(FilePath, 1, InStrRev(FilePath, "\"))
    oShellLink.Save

    Set WshShell = Nothing
    Set oShellLink = Nothing

End Sub

Private Sub Form_Load()
mShellLnk "Internet Explorer", "C:\Program Files\Internet Explorer\iexplore.exe"
End Sub

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-10-08 17:20
sdgzs
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-11-23
收藏
得分:0 
这段代码要加在用户程序中?

图片附件: 游客没有浏览图片的权限,请 登录注册


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

2022-10-08 18:38
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
你用的什么打包软件,要写脚本的。

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-10-08 18:57
sdgzs
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-11-23
收藏
得分:0 
VB6.0  Package & Deployment 向导

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

2022-10-08 20:20
快速回复:求助:VB 打包生成桌面快捷
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026151 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved