how can i use osfcreateshelllink??

[Ahmed Walid]

hi all,

how can i use the API OSfcreateShellLink to create a short cut in :

desktop

start menu

waiting for F.B

thanx on advance

'In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.  Stkit432.dll is for Visual Basic 4.0
'For VB6, change it to VB6STKIT.DLL


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


'


    Dim lReturn As Long

    'Add to Desktop
    'lReturn = fCreateShellLink("..\..\Desktop", _
    '"Shortcut to Calculator", "c:\windows\calc.exe", "")

    'Add to Program Menu Group
    'lReturn = fCreateShellLink("", "Shortcut to 
    'Calculator", "c:\windows\calc.exe", "")

    'Add to Startup Group
    'Note that on Windows NT, the shortcut will not actually appear
    'in the Startup group until your next reboot.
    'lReturn = fCreateShellLink("\Startup", "Shortcut to 
    'Calculator", "c:\windows\calc.exe", "")

[Ahmed Walid]

hi again,

i tried the above code but i discovered that FcreateShellLink version for VB6 is OSfCreateShellLink
and its decleration is

Declare Function OSfCreateShellLink Lib "vb6stkit.dll" _
Alias "fCreateShellLink" (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

as noted above there's 2 extra arguments:
sParent
fPrivate

waiting for F.B

bYe