Agora ficou bom

Moderador: Moderadores
#include "inkey.ch"
PROCEDURE Main
LOCAL oCom, nFlagIE := 11001, oElement
FOR EACH oElement IN { ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_TABBED_BROWSING", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_TABBED_BROWSING" }
win_regQuery( WIN_HKEY_LOCAL_MACHINE, oElement, "test.exe", nFlagIE, .T. )
NEXT
SetMode(40,100)
CLS
oCom := WvgActiveXControl():New( , , { 0, 0 }, { 800, 600 }, , .T. )
oCom:CLSID := "http://www.google.com.br/maps/dir/03676-080/03676-070/"
oCom:create()
Inkey(0)
RETURN
Versão final... de hoje... rs
FUNCTION GoogleMaps( ... )
LOCAL aLIst
aList := hb_AParams()
...
GoogleMaps( hb_ParamsToArray( aArray ) )
Talvez altere novamente, pra aceitar de qualquer das duas formas..... rs
IF Len( aList ) > 0 .AND. ValType( aList[ 1 ] ) == "A"
aList := aList[ 1 ]
ENDIF
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes