查看完整版本: 如何实现在桌面上添加程序的快捷方式？

如何实现在桌面上添加程序的快捷方式？

　　假如程序为C:\Program Files\MyProg\Prog.exe，需加参数/Para
　 新键一个项目，添加命令按钮和标签各一个，把下面的代码加上去，一运行，你将如愿以偿！
Option Explicit
** Sub Command1_Click()
　 CreateGroup "MyProg", "", "", 2, True
　 CreateGroup "MyProg", "C:\ProgramFiles\MyProg\Prog.exe/Para", _
　 "Para", 3, True
End Sub
Sub CreateGroup(ByVal strGroup As String, ByVal strCmd As String, ByVal _
strTitle As String, ByVal intDDE As Integer, ByVal fLog As Boolean)
　 Const strCOMMA$ = ","
　 Const strRESTORE$ = ", 1)]"
　 Const strACTIVATE$ = ", 5)]"
　 Const strENDCMD$ = ")]"
　 Const strSHOWGRP$ = "[ShowGroup("
　 Const strADDGRP$ = "[CreateGroup("
　 Const strREPLITEM$ = "[ReplaceItem("
　 Const strADDITEM$ = "[AddItem("
　 Dim i As Integer
　 Dim Sourcefile As String, Destinationfile As String
　 Form1.Label1.LinkMode = 0
　 For i% = 1 To 20
　　 On Error Resume Next
　　 Form1.Label1.LinkTopic = "PROGMAN|PROGMAN" '设置发送端应用程序和主题
　　 If Err = 0 Then Exit For
　　 DoEvents
　 Next
　 Form1.Label1.LinkMode = 2 '采用手动方式建立连接
　 For i% = 1 To 10
　　 DoEvents
　 Next
　 Form1.Label1.LinkTimeout = 100 '设置等待 DDE 响应消息的时间。
　 If Err = 0 Then
　　 Select Case intDDE
　　　　 Case 1 '建立程序项
　　　　　 Form1.Label1.LinkExecute strADDGRP