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
escription := "Gestión de Expedientes de Obra"
:Save()
ENDWITH
ENDIF

oWshShell:Destroy()

RETURN

Si le sirve a alguien, dejar un comentario.

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola Jesus
Lo acabo de incorporar a uno de mis programas y ¡funciona!, me lo habia planteado alguna vez pero no en serio, me sorprende su sencillez, una vez que se sabe como.

Muchas gracias por tu aportacion

Un saludo

¡¡¡Que bueno que te pueda servir!!!!

_________________
Un saludo.
Jesús P. Melgar Velasco