PC Toledo

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