Yrina
13 de Febrero del 2004

Cuando hago un instalador con visual foxpro, nose como hacer que cuando se instale cree un acceso directo en el escritorio Porfa una ayuda.

Miguel
13 de Febrero del 2004

Mira a ver si te funciona esto

WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\mi ejemplo.lnk")
oMyShortCut.WindowStyle = 3
&&oMyShortCut.IconLocation = "c:\fox.ico"
oMyShortCut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.HotKey = "ALT+CTRL+F"
oMyShortCut.Save
wait window \'Acceso directo creado\' nowait