用VB6自带打包工具创建桌面快捷方式和卸载程序

最新推荐文章于 2020-01-13 18:55:05 发布

原创

最新推荐文章于 2020-01-13 18:55:05 发布 · 6.3k 阅读

·

1

·

CC 4.0 BY-SA版权

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

文章标签：

#vb #工具 #string #icons #shell #path

本文介绍了如何使用VB6自带的打包工具创建卸载程序和桌面快捷方式。通过修改VB的Setup1.vbp文件，在Form_Load事件中添加代码，实现对SHGetSpecialFolderLocation和OSfCreateShellLink等API的调用来创建桌面快捷方式。同时，通过在启动菜单项新建项设置卸载程序的目标路径，实现了简单的卸载功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

　　最近因一个小活需要用vb写，遇到了打包时不能创建桌面快捷方式和无卸载功能的问题，嫌换打包工具费事，所以找了一些网上的文章并自己研究了一下，成功，现总结如下：

A、创建卸载程序

在启动菜单项那里新建项，在对话框的“名称”文本框中输入菜单项的名称，如“卸载VBTERM”

最低0.47元/天解锁文章

200万优质内容无限畅学

博客等级

码龄21年

5
原创

7
点赞

49
收藏

10
粉丝

关注

私信

热门文章

分类专栏

C/C++ 基于Arm板linux嵌入式系统RS485串口读写通讯 1篇

上一篇：: linux 远程调用命令

下一篇：: [X86] 关于/usr下的ccs，df，sfw，ucb，openwin，xpg4，xpg6的含义

最新评论

用VB6自带打包工具创建桌面快捷方式和卸载程序
wenyuqiao: 64位win7和win11不行，我找了很多教程试了很多方法，函数、语句、变量、参数等等都正确了，就是搞不定，百思不得其姐。强迫症犯了，想到可能是兼容性问题，台式机ghost个XP果然就好了，看来VB真的被放弃了。setupfactory9.53的中文版也是，程序目录下卸载出错，找出原因是因为卸载程序需要带参数，于是写脚本添加快捷方式各种花式折腾，一宿没弄好，第二天中午灵机一动换了个英文版，额，好了！
基于Arm板linux嵌入式系统RS485串口读写通讯
修诡道的马前卒: 能收到消息吗，请教一下问题
基于Arm板linux嵌入式系统RS485串口读写通讯
遥_望: select本质来讲，也是同步IO的一种
用VB6自带打包工具创建桌面快捷方式和卸载程序
lovenets2008: '''由于字数限制，接上： Dim strLinkName As String strLinkName = gstrDestDir + gstrAppExe ''' MsgBox "CreateDesktopLnk strDeskTopPath=" & strDeskTopPath & ", " & vbCrLf & "gstrAppName=" & gstrAppName & ", " & vbCrLf & "strLinkName=" & strLinkName & ", " & vbCrLf & "strLinkArguments=" & "空" OSfCreateShellLink strDeskTopPath, gstrAppName, strLinkName, "", True, "" ' gsPROGMENUKEY '"$(Programs)" ' strDeskTopPath = "DeskTop" OSfCreateShellLink strDeskTopPath, gstrAppName, strLinkName, "", True, gsUSERDEFINE ' gsPROGMENUKEY '"$(Programs)" 'gsUSERDEFINE = "$(UserProfile)" End If Exit Sub err_sub: MsgBox "CreateDesktopLnk Err: " & Err.Description, vbOKOnly End Sub 把CreateDesktopLnk()放到上面提到的在If ... End If中。
用VB6自带打包工具创建桌面快捷方式和卸载程序
lovenets2008: '思路很好，但是上面有BUG（InStrRev(strDeskTopPath, "/")和"$(Programs)"2处），以下是Windows 2012下使用通过（Window10下不一定好用，没仔细测试过）。 Private Sub CreateDesktopLnk() On Error GoTo err_sub If SHGetSpecialFolderLocation(frmSetup1.hWnd, sfidDESKTOP, lngIDLDesktop) = NOERROR Then 'sfidDESKTOPDIRECTORY strDeskTopPath = String$(gintMAX_PATH_LEN, 0) ''' MsgBox strDeskTopPath SHGetPathFromIDListA lngIDLDesktop, strDeskTopPath SHGetMalloc oMallocDesktop oMallocDesktop.Free lngIDLDesktop strDeskTopPath = StringFromBuffer(strDeskTopPath) ''' MsgBox "strDeskTopPath=" & strDeskTopPath

大家在看

最新文章

目录

展开全部

收起

评论 4

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。