SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: carlos9007 en Lunes 12 de Mayo de 2003, 18:40

Título: Re: accesorios directos
Publicado por: carlos9007 en Lunes 12 de Mayo de 2003, 18:40

hola, quisiera saber como crear el accesorio directo al aplicar el sistema, y en especial el accesorio en el escritorio.
Y, como y donde aplicar tiempo de demostracion al sistema.
Gracias por su ayuda.
Carlos

Título: accesorios directos
Publicado por: Plinio en Martes 13 de Mayo de 2003, 15:18

***Este ejemplo es con notepad, sustituyelo por tu applicacion

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