Chromo ao invés do Internet explorer

[crisvam]

Colegas,

Como chamar o Navegador Chromo ao inves do internet explorer. 

Por exemplo, para o internet explorer a grande maioria usa assim:

 

oOle := Createobject("internetExploerer.Aplication")

 

Como seria para o Chromo?

[evandro]

Olá,

Veja se funciona como informado aqui: 
CreateObject("ChromeTab.ChromeFrame")

[kapiaba]

#include "FiveWin.ch"
	static oWnd
	FUNCTION Main()
	   LOCAL oBar
	   DEFINE WINDOW oWnd TITLE "Google Action"
	   DEFINE BUTTONBAR oBar _3D OF oWnd
	   DEFINE BUTTON OF oBar ACTION GOOGLE()
	   SET MESSAGE OF oWnd TO "Google Action" NOINSET CLOCK DATE KEYBOARD
	   ACTIVATE WINDOW oWnd
	RETURN NIL
	Function GOOGLE()
	   Local cPath
	   // Windows 7 de 32 bits - work fine.
   cPath := "C:\Program Files\Google\Chrome\Application\chrome.exe"
	   If !IsInternet()
	      Msgalert("Não conectado a internet.", "Aviso!")
	      Return nil
	   Endif
	   ShellExecute( GetActiveWindow(), "open", cPath,,,9 )
     
Return nil

 

[crisvam]

KKKKK, coloquei a pergunta pela metade e claro recebi a resposta pela metade. Vou complementar: alem de abrir o navegador gostaria de abrir junto um endereço eletronico. Por exemplo cUrl := https://www.sefaz.sp.gov.br/fnce/consultanfce.

 

Grato ao João Santos e evandro pela atenção

[kapiaba]

#include "FiveWin.ch"
	static oWnd
	FUNCTION Main()
	   LOCAL oBar
	   DEFINE WINDOW oWnd TITLE "Google Action"
	   DEFINE BUTTONBAR oBar _3D OF oWnd
	   DEFINE BUTTON OF oBar ACTION GOOGLE()
	   SET MESSAGE OF oWnd TO "Google Action" NOINSET CLOCK DATE KEYBOARD
	   ACTIVATE WINDOW oWnd
	RETURN NIL
	Function GOOGLE()
	   Local cPortal
	   cPortal := "http://internet.sefaz.es.gov.br/"  // Url do Esp. Santo
	   If !IsInternet()
	      Msgalert("Não conectado a internet.", "Aviso!")
	      Return nil
	   Endif
	   MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.5 )
	   // Executa o navegador padrao... Google Chrome nao gosto do IE.
   ShellExecute( GetActiveWindow(), "open", cPortal,,,9 )
     
Return nil

 

[crisvam]

 

 

#include "FiveWin.ch"
	static oWnd
	FUNCTION Main()
	   LOCAL oBar
	   DEFINE WINDOW oWnd TITLE "Google Action"
	   DEFINE BUTTONBAR oBar _3D OF oWnd
	   DEFINE BUTTON OF oBar ACTION GOOGLE()
	   SET MESSAGE OF oWnd TO "Google Action" NOINSET CLOCK DATE KEYBOARD
	   ACTIVATE WINDOW oWnd
	RETURN NIL
	Function GOOGLE()
	   Local cPortal
	   cPortal := "http://internet.sefaz.es.gov.br/"  // Url do Esp. Santo
	   If !IsInternet()
	      Msgalert("Não conectado a internet.", "Aviso!")
	      Return nil
	   Endif
	   MsgWait( "CONECTANDO AO PORTAL DA SEFAZ...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.5 )
	   // Executa o navegador padrao... Google Chrome nao gosto do IE.
   ShellExecute( GetActiveWindow(), "open", cPortal,,,9 )
     
Return nil