FoxPro/Visual FoxPro - Como Creo un Acceso Directo al Instalar el program

Hola, Que tal

Como puedo crear un acceso directo al instalar una aplicacion ?

gracias.

COn este codigo generas un acceso directo

&& crear un acceso directo de VFP
Public Ruta
set defa to &ruta
WshShell=CreateObject("WScript.shell")
strDesktop=wshShell.SpecialFolders("Desktop")
oMyShortcut=WshShell.CreateShortcut(strDesktop+"\SisFact2001.lnk")
oMyShortcut.WindowStyle=1
oMyShortcut.IconLocation="&ruta"+"\iconos\btc.ico"
oMyShortcut.TargetPath="&ruta"+"\proyecto\btc2000.exe"
oMyShortcut.Save
=messagebox("Acceso Directo a SisFact2001 creado en Escritorio",0+32,"Acceso Directo")

Esto seria el programa a ejecutar una vez acabada la instalacion ...

Espero te sirva...