|
Author: Kevin
|
Views: 16,089 /
Created: January 1, 2000
|
| |
Visual Basic 5 and 6 do not call fCreateShellLink in the same fashion.
Private Declare Function fCreateShellLink Lib "vb5stkit.DLL" ( _
ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String) As Long
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
' *** CODE TO PLACE ICON ON DESKTOP BEGINS
fPrivate = True
sParent = gsPROGMENUKEY
lReturn = fCreateShellLink("..\..\Desktop", "My Program", "C:\Program Files\My Program\My Program.exe", "", fPrivate, sParent)
' *** CODE TO PLACE ICON ON DESKTOP ENDS
|
|
Digg
del.icio.us
Furl
Google Bookmarks
Yahoo! MyWeb
AddThis Bookmark