Programación General > Visual FoxPro

 Re: accesorios directos

(1/1)

carlos9007:
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

Plinio:
***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"

Navegación

[0] Índice de Mensajes