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
添加到桌面 lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to
Calculator", "c:\windows\calc.exe", "") 添加到程序组 lReturn =
fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe",
"") 添加到启动组 lReturn = fCreateShellLink("\Startup", "Shortcut to
Calculator", "c:\windows\calc.exe", "")