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")
por favor te agradezco, el archivo STKIT432.DLL para crear los acceso directos en fox pro. es que no lo tengo. y estoy haciendo un proyecto de instalación, gracias por tu ayuda amigo
por favor te agradezco, el archivo STKIT432.DLL para crear los acceso directos en fox pro. es que no lo tengo. y estoy haciendo un proyecto de instalación, gracias por tu ayuda amigo
Valora esta respuesta
0
Comentar
Funcion para saber cunatos dias tiene el mes que e