有建立某个程序的快捷方式的函数吗?

crliu 2000-04-12 05:58:00
加精
API中有建立某个程序的快捷方式的函数吗?
...全文
545 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dynamic 2001-04-21
  • 打赏
  • 举报
回复
同意dxqyl
dxqyl 2000-09-15
  • 打赏
  • 举报
回复
试试吧:
Text1.LinkTopic = "Progman|Progman"
Text1.LinkMode = 2
Text1.LinkExecute "[ShowGroup(启动, 4)]"
Text1.LinkExecute "[AddItem(""应用程序"",""菜单组中的名"")]"
(请在form中加入text1)
929 2000-04-12
  • 打赏
  • 举报
回复
我想可以用ISHELLLINK接口来完成,这在MSDN中有,另外如果有STKIT432。DLL的话,可用下面这个函数。这个DLL应该是做安装盘用的。可用“SHORTCUT”在MSDN中找。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Sub Command1_Click()

Dim lReturn As Long

'Add to Desktop
lReturn = fCreateShellLink("..\..\Desktop", _
"Shortcut to Calculator", "c:\Winnt\system32\calc.exe", "")

'Add to Program Menu Group
lReturn = fCreateShellLink("", "Shortcut to Calculator", _
"c:\Winnt\system32\calc.exe", "")

'Add to Startup Group
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
"c:\Winnt\system32\calc.exe", "")

End Sub

7,759

社区成员

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

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