FoxPro/Visual FoxPro - Generar acceso directo que este en el Escritorio

Hola amigos programadores.
Tengo un instalador de un software que diseñe, el cual te pide la unidad y carpeta donde deseas instalarlo, como puedo generar automáticamente un acceso directo que se encuentre en el escritorio y en el botón Inicio/Programas.
Gracias

Fijate con esto:

=CreateShortCut("Mi Sistema",;
"Misistema.exe",GetSystemFolderPath(0,CSIDL_DESKTOP),;
"",SHOWMAXIMIZE)

#DEFINE CSIDL_DESKTOP 0x0
#DEFINE CSIDL_PROGRAMS 0x2

DECLARE Long SHGetSpecialFolderLocation IN Shell32 Long hwndOwner, Integer nFolder, Long @ppidl
DECLARE Long SHGetPathFromIDList IN Shell32 Long pidl, String @szPath

FUNCTION GetSystemFolderPath
PARAMETERS hwnd, Id
LOCAL lReturn, lPidl, sPath
lReturn = 0
lPidl = 0
sPath = SPACE(MAX_PATH)
lReturn = SHGetSpecialFolderLocation(hwnd, Id, @lPidl)
IF lReturn = 0
lReturn = SHGetPathFromIDList(lPidl, @sPath)
If lReturn = 1 Then
sPath = STRTRAN(TRIM(sPath),CHR(0),"")
ENDIF
ENDIF
RETURN sPath

FUNCTION CreateShortCut
PARAMETERS tcName, tcApplication, tcFolder, tcDirectory,tcWindow
LOCAL loShell, loShortcut
loShell=CreateObject("wscript.Shell")
loShortcut=loShell.CreateShortcut(ADDBS(tcFolder)+ALLTRIM(tcName)+".lnk")
WITH loShortcut
.TargetPath=ALLTRIM(tcApplication)
.WorkingDirectory=ALLTRIM(tcDirectory)
.WindowStyle=tcWindow
.Save
ENDWITH
RELEASE loShell, loShortcut
RETURN FILE(ADDBS(tcFolder)+ALLTRIM(tcName)+".lnk")