qtw_vers

QuickTime Version Function From: Fumio Nonaka <nonaka@attainj.co.jp> Organization: Attain Corporation Subject: Re: QuickTIme installer for Mac? To: DIRECT-L@LISTSERV.UARK.EDU Hi, I wrote the QuickTime version function below with Buddy API which returns the latest version or a list of versions as well (in Windows). [Test in the message window] put baVersion("qt3") -- "4.1.2" put xQuickTimeVersion() -- 4.1200 put xQuickTimeVersion(#list) -- [2.1259, 4.1200] -- [QuickTime Version Function - Movie script] on xQuickTimeVersion sList nQT2 = xConvertToFloat(baVersion("qt")) nQT3 = xConvertToFloat(baVersion("qt3")) if sList = #list then result = [] if nQT2 > 0 then result.append(nQT2) end if if (nQT3 > 0) and (nQT2 <> nQT3) then result.append(nQT3) end if else result = max(nQT2, nQT3) end if return result end on xConvertToFloat sNum sOrgDelimiter = the itemDelimiter the itemDelimiter = "." if sNum.item.count > 1 then sResult = sNum.item[1..2] delete sNum.item[1..2] repeat while sNum <> empty sResult = sResult & sNum.item[1] delete sNum.item[1] end repeat else sResult = sNum end if the itemDelimiter = sOrgDelimiter return float(sResult) end