abrir un link en el browser desde el menú de foxpro 8

Prueba esta funcion abre cualquier tipo de archivo o direccion web.

FUNCTION ShellExecuteFile(sFileName as String)
DECLARE INTEGER ShellExecute in shell32.dll
Long,String,String,String,String,Long
=ShellExecute(0,"OPEN",sFileName,"","C:\", 1)
ENDFUNC

Modo de uso.

ShellExecuteFile("http://www.eluniverso.com")

Saludos !

Steven Mera.

Yo tengo una librería API, que tiene las funciones que necesito:

loApi.ShellExecute(tcURL)



*
* Método:
* OAPI.SHELLEXECUTE
* Parameters:
* WinApi :: ShellExecute
** Function: Opens a file in the application that it's
** associated with.
** Pass: lcFileName - Name of the file to open
**
** Return: 2 - Bad Association (e.g., invalid URL)
** 31 - No application association
** 29 - Failure to load application
** 30 - Application is busy
**
** Values over 32 indicate success
** and return an instance handle for
** the application started (the browser)
****************************************************************************
*********************
*!* Sh_execute class - John Harvey ()
*!* This is a modified version of the shellexecute that ships with MS VFP
version 6.0
*!* For some strange reason when they wrapped this api call, they didn't
include the
*!* parameter for the file to load as in the case where you want to launch
notepad and pass
*!* a file name to be opened. I've added the lcparams parameter to the
lparameters and then
*!* checked to see if 4 parameters where passed, if not set the value of
lcparams to ''.
*!* From the command prompt you can instance this class as follows:
*!* set classlib to sh_execute
*!* oex=create('sh_execute')
*!* oex.shellexecute('notepad.exe',,,'c:\autoexec.bat') should open notepad
with the autoexec.bat
****************************************************************************
*********************
*
* Objetivo:
*
* Programador:
*!* John Harvey ()
* Fecha de Terminación:
* 11/11/2000 11:10:26 AM
* Modificaciones:
*!* Modificado: 11/11/2000 11:11:04 AM Fernando Puyuelo. Adaptación a
TASA2000
*
LPARAMETERS tcFileName,tcWorkDir,tcOperation,lcparams

LOCAL lcFileName,lcWorkDir,lcOperation,lcparams

IF EMPTY(tcFileName)
RETURN -1
ENDIF

lcFileName=ALLTRIM(tcFileName)
lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT
EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")
if parameters()<4
lcparams=''
endif

*-* HINSTANCE ShellExecute(hwnd, lpszOp, lpszFile, lpszParams, lpszDir,
wShowCmd)
*-*
*-* HWND hwnd - handle of parent window
*-* LPCTSTR lpszOp - address of string for operation to perform
*-* LPCTSTR lpszFile - address of string for filename
*-* LPTSTR lpszParams - address of string for executable-file parameters
*-* LPCTSTR lpszDir - address of string for default directory
*-* INT wShowCmd - whether file is shown when opened

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

RETURN ShellExecute(0,lcOperation,lcFilename,lcparams,lcWorkDir,1)



"Eduardo Romero" escribió en el mensaje
news:

Saludos

Necesito incluir un enlace a una pagina web en la internet y local desde
los menúes de foxpro, pero no encuentro el comendo que me indica como
hacerlo.

Agradezco mucho su ayuda


GRacias

Eduardo Romero