RE:Acceso directo
Publicado por
mordiskitos (1 intervención) el 08/08/2007 08:15:02
Prueba con esto...
Tienes que ponerlo bien el open o bien hacerte una mini aplicacion de actualizacion de version
OLEObject WshShell,objShortCut
String strDesktopPath
WshShell = CREATE OLEObject
objShortCut = CREATE OLEObject
WshShell.ConnectToNewObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")
//Este será el nombre para el acceso directo a la aplicación
objShortCut = WshShell.CreateShortcut(strDesktopPath + "Mi aplicacion.lnk")
//Esta es la ruta donde esta el .exe (se escribe sin .exe)
objShortCut.TargetPath = gblobjsistema.strAppDir+"CarpetaAplicacion"
//Es el directorio desde donde corre la aplicación y estan todos los pbds y el exe
objShortCut.WorkingDirectory = gblobjsistema.strAppDir+"Carpeta"
//Es el directorio donde esta el icono que quieres dar a tu acceso directo
objShortCut.IconLocation = gblobjsistema.strAppDir+"IconosMiIcono.Ico , 0"
//Se crea el acceso directo
objShortCut.Save
