RE:Como creo un acceso directo desde visual Fox
Hola,
Puedes utilizar la DLL STKIT432.DLL: (si no la tienes hazmelo saber y te la envío)
Declare integer fCreateShellLink in STKIT432.DLL String lpstrFolderName, String lpstrLinkName, String lpstrLinkPath, String lpstrLinkArgs
fCreateShellLink("..\..\Escritorio", "Actualizar", "c:\programa\instalar.exe", "")
Así te creara un icono de acceso directo en el escritorio de windows llamado
´Actualizar´ y que ejecuta el programa "c:\programa\instalar.exe"
La puedes encapsular en un procedimiento del tipo
PROCEDURE CrearAccesoDirecto
LPARAMETERS cpNombre,cpPrograma
Declare integer fCreateShellLink in STKIT432.DLL String lpstrFolderName, String lpstrLinkName, String lpstrLinkPath, String lpstrLinkArgs
fCreateShellLink("..\..\Escritorio",cpNombre,cpPrograma, "")
ENDPROC &&CrearAccesoDirecto
Así lo puedes usar :
CrearAccesoDirecto("Actualiza","C:\PROGRAMA\INSTALA.EXE")
Saludos
BORJA