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
Private Sub Command1_Click()
   '   'XP使用
   Call fCreateShellLink("..\..\Desktop", "CBM666的桌面快捷键", "C:\calc.exe", "", True, "$(Programs)")
   '2000 使用
   Call fCreateShellLink("..\..\桌面", "CBM666的桌面快捷键", "C:\calc.exe", "", True, "$(Programs)")
End Sub

以上是一位前辈( cbm666 )提供的源码!     在此非常感谢!!!!!!!

发表于 @ 2008年03月10日 14:43:00|评论(loading...)|编辑