RE:Crear Accesos Directos
Hola!
agregar un acceso directo al escritorio nunca lo hice en VFP, ya que el instalador agrega el grupo de programas en el menú inicio, y con esto me alcanza. pero si lo he hecho en VB utilizando API's, tal vez en VFP sea lo mismo:
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Dim lReturn As Long
'Escriba el directorio donde tenga el escritorio para que le cree un acceso directo en el mismo.
lReturn = fCreateShellLink("..\..\Escritorio", _
"Shortcut to Calculator", "c:\windows\calc.exe", "")
'Añade al menú programas
lReturn = fCreateShellLink("", "Acceso directo a la Calculadora", "c:\windows\calc.exe", "")
'Añade al menú inicio
'Para windows NT no aparecerá el acceso directo hasta que no reiniciemos.
lReturn = fCreateShellLink("\Inicio", "Acceso directo a la Calculadora", _
"c:\windows\calc.exe", "")
debes tener la librería stkit432.dll, consulta la ayuda como utilizarla en VFP.
espero te sirva.
Uplift
PD) yo trabajo en telecomunicaciones, me gustaría ver que es lo que has hecho, si quieres mandame por email algo.