Navegadores intalados

[Vander]

Olá;

Tem como listar todos os navegadores instalados no PC? algo semelhante a listar as impressoras instaladas.

Obrigado;
Vander

[Pablo César]

Eu fiz algo assim:

Código: Selecionar todos

aBrowsers := BInstalled(1)

Function BInstalled(nValue)
Local cFolder,cBrowser,I,U,nTam
Local aRet:={.F.,.F.,.F.,.F.,.F.}
Local cProfiles:=SubStr(LOCAL_USER,1,Rat("\",LOCAL_USER)-1)
Local aInstBrowser:={"\Microsoft\Internet Explorer",;
                    "\Google\Chrome\User Data",;
                    "\Mozilla\Firefox\Profiles",;
					"\Opera\Opera",;
					"\Apple Computer\Safari"}
If nValue=1
   aUsers:={USER_NAME}
Else
   aUsers:=GetAllUsers()
Endif
nTam:=Len(aUsers)
For I=1 To nTam
    cFolder:=StrTran(LOCAL_APPDATA,LOCAL_USER,cProfiles+"\"+aUsers[I])
	For U=1 To 5
	    cBrowser:=cFolder+aInstBrowser[U]
        If hb_DirExists(cBrowser)
		   aRet[U]:=.T.
	    Endif
	Next
Next
Return aRet

Fiz em HMG mas creio que pode adaptar.

[Vander]

Obrigado Pablo César;

Fiz em HMG mas creio que pode adaptar.

Mesmo se eu não consiga adaptar, já dá pra ter ideia de como fazer.

Novamente obrigado;

Vander