'Need STKIT432.DLL: http://g.yi.org/_scripts/file.php?f=2713&r=2330#3185

'From:  Jacques Philippe  Sun Dec 29, 2002  7:10 pm

'STKIT432.DLL Has to be found (not in Windows)
'For Special Folders, see API 
'Declare Function SHGetSpecialFolderLocation Lib "shell32" Alias
'"SHGetSpecialFolderLocation" _
'(ByVal hwndOwner As Long, ByVal nFolder As Long,
'pidl As Long) As Long

'Here it Adds A ShortCut To Bureau which is DeskTop in french.
'SHGetSpecialFolderLocation
'Would retrieve the Bureau/Desktop/orWhateverLanguageIsSet PathName 

' ---- Start RQ Code ----
' 
' CREATES A SHORTCUT/LINKS
'
$ESCAPECHARS ON
$TYPECHECK ON
$INCLUDE "RAPIDQ.INC"
'
Declare Function fCreateShellLink Lib "STKIT432.DLL" ALIAS "fCreateShellLink"(ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
'
DefInt lReturn

'Add to Desktop
DefStr addTo, addName, addWhat, nullString
nullString = ""

'Add to Desktop
addTo = "..\\..\\Bureau"
addName = "Shortcut to Calculator"
addWhat = "c:\\Windows\\Calc.exe"
nullString = ""
'
' BOTH LINES WORK WITHOUT CHANGING THE API DECLARATION ARGUMENT
'
'lReturn = fCreateShellLink( "..\\..\\Bureau", "Shortcut to Calculator","c:\\Windows\\calc.exe", "")
lReturn = fCreateShellLink(addTo, addName, addWhat, nullString)
'
Print "Result : 1=OK/ 0=FAILURE, fCreatreShellLink_Return=";Str$(lReturn)
'
' -------------------------------------------------------------
' EXIT CONSOLE
' ------------
DefStr sExit
Input "\n\n CR to QUIT \n\n", sExit
Application.Terminate
End