请教

pyhjy 2000-03-21 09:23:00
我在制作VB安装程序时,不知如何在程序安装完成后在桌面上建立一个应用程序的快捷方式,请各位大侠指教。
...全文
126 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
pyhjy 2000-03-26
  • 打赏
  • 举报
回复
chen_lin;littletao
您好
你们的回答让我非常顺利的解决了问题,向你们表示衷心的谢意,由于我这几天出差,未能及时回复,请你们原谅并在以后多多帮忙.
littletao 2000-03-22
  • 打赏
  • 举报
回复
如果你用install shield的话,可以很方便的做出这功能。
只需要在:
resources->shell objects->explorer shell -> desktop
下添加你的快捷方式就可以了。
active 2000-03-22
  • 打赏
  • 举报
回复
如果用VB自己的安装程序可以修改setup.ins文件
Chen_Lin 2000-03-21
  • 打赏
  • 举报
回复
'利用API
Public Const FO_COPY As Long = &H2
Public Const FOF_SILENT As Long = &H4
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_NOCONFIRMATION As Long = &H10

Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long

'建立应用程序的快捷方式
'sSource是包含.lnk的字符串
Public Sub CreateDesktopLink(sSource As String, sDestination As String)

'working variables
Dim sFiles As String
Dim SHFileOp As SHFILEOPSTRUCT

'terminate passed strings with a null
sSource = sSource & Chr$(0)
sDestination = sDestination & Chr$(0)

'set up the options
With SHFileOp
.wFunc = FO_COPY
.pFrom = sSource
.pTo = sDestination
.fFlags = FOF_SILENT Or FOF_NOCONFIRMATION
End With

'and perform the copy
Call SHFileOperation(SHFileOp)

End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧