創建快捷方式

苦苦搜寻了N天，终于被我找到了，拿出来给大家参考一下:

Private Declare Function fCreateShellLink Lib "vb6stkit.DLL" ( _
ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String, _
ByVal fPrivate As Long, _
ByVal sParent As String) As Long

参数说明：

lpstrFolderName  文件夹的名称 “$(proprams)” 程序组 "$(Strar Menu)" 开始菜单

lpstrLinkName     快捷键的名称

lpstrLinkPath       快捷键的路径

lpstrLinkArgs       不详  一般用""

fPrivate              TRUE

sParent               上一层文件夹

例：ret=fCreateShellLink("..//..//桌面", "我的捷徑", "C://calc.exe", "", True, "$(Programs)")

在桌面创建 ，成功返回1，否则返回 0

    ret=fCreateShellLink("启动", "我的捷徑", "C://calc.exe", "", True, "$(Programs)")

在启动组创建

   ret=fCreateShellLink("$(Strat Menu)", "我的捷徑", "C://calc.exe", "", True, "")

在开始菜单中创建

以上是在windows2000下，如果是win98文件夹的名称 可能需要做一些修改