NS = baReadRegString( "SoftwareMicrosoftWindowsCurrentVersionApp Paths
etscape.exe", "", "", "hkey_local_machine" )
browserList = [:]
the itemDelimiter = "."
if IE <> "" then
versionIE = float((baFileVersion(IE).item[1] & "." & baFileVersion(IE).item[2]))
if versionIE < 4.72 and versionIE > 3.0 then versionIE = 3.0
addProp browserList, #IE, versionIE
end if
if NS <> "" then
addProp browserList, #NS, float((baFileVersion(NS).item[1] & "." & baFileVersion(NS).item[2]))
end if
return browserList
end
on getBehaviorDescription me
describe = "This returns a property list of the installed version of internet explorer or netscape navigator. Call like this..." & return & "browserList = getAllBrowsers()"
return describe
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA