Hola, a todos (si hay alguien).
He querido incorporar a mis aplicaciones la posibilidad de crear automaticamnte un acceso directo de la aplicacion en el escritorio.
Busqué como hacerlo, y aqui esta la solucion.
METHOD AccesoDirecto() CLASS XEnviroment
LOCAL oWshShell, oShellLink, cDesktop
oWshShell := TOLEContainer():Create( "WScript.Shell" )
cDesktop := oWshShell:SpecialFolders:Item( "Desktop" ) + "\trueGEO.lnk"
IF !File( cDesktop )
WITH oShellLink := oWshShell:CreateShortcut( cDesktop )
:TargetPath := Application:ExeName
![Very Happy :D](./images/smilies/icon_biggrin.gif)
escription := "Gestión de Expedientes de Obra"
:Save()
ENDWITH
ENDIF
oWshShell:Destroy()
RETURN
Si le sirve a alguien, dejar un comentario.