Programación General > Visual FoxPro

 Re: Acceso directo en el escritorio

(1/2) > >>

Elisur:
Hola,
Hace poco aprendí a generar discos de instalación y distribución para los programas que he creado en Visual Foxpro 6.0, pero al instalarlos, no se crean el grupo de programas ni el acceso directo en el escritorio.

¿Alguien sabe como hacer para que al instalar mi programa se generen automáticamente el grupo de programas y/o acceso directo en el escritorio sin que el usuario tenga que tocar nada?

Gracias y Saludos

Plinio:
http://www.portalfox.com/modules.php?op ... le&sid=319

Elisur:
Ok, ya tengo ese código, pero no se qué hacer con él ni donde debo insertarlo para que me funcione.

Plinio:
Crea un projecto que contenga un .prg con ese codigo y genera un .exe. Vamos a llamar ese ejecutable crea_shortcut.exe.

Verifica que tu instalador incluya ese archivo dentro de los archivos a distribuir.

Si te fijas en el instalador hay una opcion que te pide que archivo desea ejecutar luego de terminar la instalación. Aunque tengo tiempo que no uso el instalador de VFP 6 hay una opcion que dice Post setup file o algo asi, ahi pones el nombre del .exe que crea los shortcut.

Elisur:
Lo he hecho y se ejecuta, pero no aparece el icono por ninguna parte.
El código que ponía en la web que me diste es este:

oWsh = CreateObject("WScript.Shell")
cDesktopDir = oWsh.SpecialFolders("Desktop")
oLnk = oWsh.CreateShortcut(cDesktopDir + "NOTAS.lnk")
oLnk.TargetPath = oWsh.ExpandEnvironmentStrings("%windir%") + "notepad.exe"


Y este es el que yo intento ejecutar:

oWsh = CreateObject("WScript.Shell")
cDesktopDir = oWsh.SpecialFolders("Desktop")
oLnk = oWsh.CreateShortcut(cDesktopDir + "FACTURACION.lnk")
oLnk.TargetPath = oWsh.ExpandEnvironmentStrings("c:tienda") + "gestion.exe"

Tampoco me generó el acceso al notepad con el ejemplo anterior.

Estoy trabajando en entorno Windows XP Profesional, ¿tiene eso algo que ver?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente