关于快捷方式实现的问题

Question

各位朋友，我碰到一个问题，希望大家帮忙。
我想在代码中实现将一个EXE文件生成一个快捷方式，然后将快捷方式放在桌面上，请各位帮忙。

Answer 1

利用 DDE 可方便地建立快捷方式：（Text1 为表单中的 Textbox）
Text1.LinkTopic = "Progman|Progman" 
Text1.LinkMode = 2 
Text1.LinkExecute "[ShowGroup(启动, 4)]" 
Text1.LinkExecute "[AddItem(c:\vb5\myprog.exe, 我的程序)]" 

Answer 2

Public Declare Function fCreateShellLink Lib "vb5stkit.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
fCreateShellLink "..\..\Desktop", 标题, 文件, ""

Answer 3

哈，我发现了一个更简单的方法，在VB的引用中有个windows script  host  object model 的东西，引用后，可以利用其声明一个类，用改类就可以了。
Dim iw1 As New IWshRuntimeLibrary.IWshShell_Class    '获得桌面，程序组路径
Dim iwSC As New IWshShortcut_Class 
Private Sub mybutton7_Click()
lnkpath = iw1.SpecialFolders("programs")   '获得程序菜单目录
exepath = stracdfilename + "start.exe"
dskpath = iw1.SpecialFolders("desktop") '获得桌面目录
 '建立一个快捷方式文件
   Set iwSC = iw1.CreateShortcut(lnkpath + "\×××.lnk")
   
'    '设定快捷方式指向的对象
   iwSC.TargetPath = exepath
 iwSC.Save
end sub
就这样就可以了，谢谢各位的帮忙。