home *** CD-ROM | disk | FTP | other *** search
/ Clickx 148 / Clickx_Magazine_148_Coverdisc_cd5.iso / pc / Yucom / intro.dxr / Scripts_2_browsercheck.ls < prev    next >
Encoding:
Text File  |  1999-11-03  |  1.2 KB  |  45 lines
  1. global gBrowser, gnummer
  2.  
  3. on browsercheck
  4.   gBrowser = 0
  5.   if the platform contains "macintosh" then
  6.     ieroot = baFindApp("MSIE")
  7.     the itemDelimiter = ":"
  8.     HardDiskIE = item 1 of ieroot
  9.     HardDiskCD = item 1 of the moviePath
  10.     if baFileVersion(baFindApp("MSIE")) = "4.5Y" then
  11.       if HardDiskIE <> HardDiskCD then
  12.         gBrowser = 1
  13.         put "IE5JV installed"
  14.         go("BrowserOK")
  15.       else
  16.         gBrowser = 0
  17.         put "IE5JV not installed"
  18.         go("BrowserUpdate")
  19.       end if
  20.     else
  21.       gBrowser = 0
  22.       put "IE5JV not installed"
  23.       go("BrowserUpdate")
  24.     end if
  25.   else
  26.     ieJV = baReadRegString("SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform", "Yucom_v01.00.00", "Error", "HKEY_LOCAL_MACHINE")
  27.     if ieJV = "error" then
  28.       gBrowser = 0
  29.       put "IE5JV not installed"
  30.       go("BrowserUpdate")
  31.     else
  32.       ieversie = baReadRegString("SOFTWARE\Microsoft\Internet Explorer", "Version", "Error", "HKEY_LOCAL_MACHINE")
  33.       if ieversie starts "5" then
  34.         gBrowser = 1
  35.         put "IE5JV installed"
  36.         go("BrowserOK")
  37.       else
  38.         gBrowser = 0
  39.         put "IE5JV not installed"
  40.         go("BrowserUpdate")
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.