on error resume next
set obj_qt = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
if IsObject(obj_qt) then
i_quicktime = obj_qt.IsQuickTimeAvailable(0)
v_quicktime = CInt(Hex(obj_qt.QuickTimeVersion) / 1000000)
end if

if (i_quicktime) then
	call setPlayer()
	call setVersion(v_quicktime)
end if