La Web del Programador: Comunidad de Programadores
 
    Pregunta:  6428 - COMO HACER UN VINCULO
Autor:  Eduardo Mendez
YO ESTOY EMPEZANDO A TRABAJAR EN LA VERSION 6.0 DE FOX Y NECESITO SABER COMO HACER UNA SIMPLE VINCULO A UNA PAGINA POR MEDIO DEL OBJETO LLAMADO HYPERLINK.... CUAL ES EL CODIGO CORRECTO PARA MANDARLO A UN URL CUALQUIERA, Y QUE SE HABRA EL EXPLORADOR ...

MUCHAS GRACIAS Y ESPERO ME PUEDAD SACER DE ESTA DUDA

  Respuesta:  Danes Vilela
UN ARTICULO DE Ó Rick Strahl, West Wind Technologies, 1999
http://www.west-wind.com/ ME AYUDO DE LA SIGUIENTE FORMA :

The Shell API is implemented in several different ways, the simplest of which is an API call you use in your Visual FoxPro applications. To try it, create the following function:

ShellExec("http://www.west-wind.com/")
ShellExec(ftp://ftp.west-wind.com/)

FUNCTION ShellExec
*************************
LPARAMETER lcLink, lcAction, lcParms

lcAction = IIF(EMPTY(lcAction), "Open", lcAction)
lcParms = IIF(EMPTY(lcParms), "", lcParms)

DECLARE INTEGER ShellExecute ;
IN SHELL32.dll ;
INTEGER nWinHandle, ;
STRING cOperation, ;
STRING cFileName, ;
STRING cParameters, ;
STRING cDirectory, ;
INTEGER nShowWindow

DECLARE INTEGER FindWindow ;
IN WIN32API ;
STRING cNull,STRING cWinName

RETURN ShellExecute(FindWindow(0, _SCREEN.caption), ;
lcAction, lcLink, ;
lcParms, SYS(2023), 1)

*and then try the following links (adjust the paths as necessary):