用VB创建Windows快捷方式(无需DLL)

最新推荐文章于 2014-02-12 16:04:25 发布

原创

最新推荐文章于 2014-02-12 16:04:25 发布 · 1.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#windows #vb #integer #string #command #dll

本文介绍了如何在VB中创建Windows快捷方式，包括创建程序组、启动文件夹的快捷方式和桌面快捷方式，无需使用DLL文件。通过示例代码详细展示了创建过程。

''　　创建开始菜单快捷方式

Option Explicit

Private Sub Command1_Click()

CreateProgManGroup Me, "测试", "test.grp"
CreateProgManItem Me, "d:/ghost.exe", "Ghost"
CreateProgManItem Me, "d:/setupQQ.exe", "QQ"

End Sub

Sub CreateProgManGroup(X As Form, GroupName$, GroupPath$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
Rem 空循环使DDE有时间执行
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
Rem LinkExecute 是在DDE通道中传送这样的命令
'──建立一个名为GroupName $的程序组。
X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"
X.Label1.LinkTimeout = 50 '恢复Label1 的属性值
X.Label1.LinkMode = 0
End Sub

Sub CreateProgManItem(X As Form, CmdLine$, IconTitle$)
Dim i As Integer
X.Label1.LinkTopic = "ProgMan|Progman"
X.Label1.LinkMode = 2
For i = 1 To 10
DoEvents
Next
X.Label1.LinkTimeout = 100
X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44)