Är det någon som vet var hur man skall använda
api funktionen fCreateShellLink. Den skall finnas i VB6STKIT.dll.
Har själv hittat lite information om den men jag får det inte att funka.
Parametrarna strular lite....

Hej
Hittade detta

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 Sub Form_Load()
'Create a shell link on your desktop
lngresult = fCreateShellLink("..\..\Desktop", "LINK", "C:\myfile.exe", "")

· lpstrFolderName folder
where to create the link

· lpstrLinkName
text caption for the link

· lpstrLinkPath
full path to the target of the link

· lpstrLinkArguments
command-line arguments for the link

Mvh
Sven

Har testat denna typen innan och den funkar inte för mig..
Det skulle vara bra att kunna titta inuti vb6stkit för att se om några av argumenten har ändrats efter vb5....Jag har tyvärr ingen aning om hur man skulle kunna göra detta....

'Skriv in en koden.
'För genväg till Autostart
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

'Och sedan funktion.
Public Function createAutostart()
Dim strGroupName As String, strLinkName As String
Dim strLinkPath As String, strLinkArguments As String
Dim fPrivate As Boolean, sParent As String
Dim fSuccess As Boolean

strLinkName = "MittProg"
strLinkPath = App.Path & "\MittProg.exe"
strLinkArguments = ""
fPrivate = True

'Lägger genvägen i Autostart mappen i program menyn.
strGroupName = "Autostart"
sParent = "$(Programs)"
fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, _
strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)

End Function

'Detta fungerar garanterat!