Hola a todos.
No s茅 si se comprende bien la pregunta pero la situaci贸n es que tengo en el directorio de mi aplicaci贸n una carpeta AYUDA y dentro de dicha carpeta un archivo INDEX.HTML. Lo que quiero es lanzar desde un punto del men煤 de mi aplicaci贸n esa p谩gina con el navegador que haya predeterminado (explorer, firefox, etc.).
Gracias por adelantado.
/*------------------------------------------------------------------------------*/
Function IrWeb( cURL )
/*------------------------------------------------------------------------------*/
聽 聽 /* comprobamos si tenemos conexion a internet */
聽 聽 If !IsInternet()
聽 聽 聽 聽MsgAlert( "Compruebe la conexi贸n a Internet.", "Atenci贸n" )
聽 聽 聽 聽Return NIL
聽 聽 End
聽 聽// Funcion modificada para que funcione con Windows 7 y XP
聽 聽ShellExecute( , "open", cURL )
Return NIL/*
------------------------------------------------------------------------------
聽 聽 聽 聽Funcion: ShowWebUser()
聽 聽 Parametros: Ninguno
聽 聽 聽 Devuelve: NIL
聽 聽Descripcion: Crea una ventana incrustando la web usando XActive
------------------------------------------------------------------------------
*/
STATIC Function ShowWebUser()
聽 聽LOCAL oActiveX, oIcon
聽 聽LOCAL cEvents 聽:= ""
聽 聽LOCAL nWWidth 聽:= Max( 200, oWndChild:nWidth 聽- 聽 6 )
聽 聽LOCAL nWHeight := Max( 100, oWndChild:nHeight - 100 )
聽 聽/* comprobamos si tenemos conexion a internet */
聽 聽If !IsInternet()
聽 聽 聽 MsgAlert( "Compruebe la conexi贸n a Internet.", "Atenci贸n" )
聽 聽 聽 Return NIL
聽 聽End
聽 聽DEFINE ICON oIcon 聽RESOURCE "Icon"
聽 聽DEFINE WINDOW oWndPClie MDICHILD OF oWndChild;
聽 聽 聽 聽 聽 FROM 0,0 TO nWHeight, nWWidth PIXEL 聽;
聽 聽 聽 聽 聽 TITLE "Navegador Web" ICON "Icono"
聽 聽 聽 聽 聽 oActiveX = TActiveX():New( oWndPClie, "Shell.Explorer" )
聽 聽 聽 聽 聽 oWndPClie:oClient = oActiveX
聽 聽 聽 聽 聽 oWndPClie:Resize()
聽 聽 聽 聽 聽 oActiveX:Do( "Navigate2", "http://www.proyectos-meliana.es/agapornis-meliana/" )
聽 聽ACTIVATE WINDOW oWndPClie;
聽 聽 聽 聽 聽 聽 VALID ( .T. )
聽 聽DeleteObject( oIcon )
聽 聽DeleteObject( oActiveX )
Return NIL