Function CheckIEReal()
	 on error resume next
	 RealPlayer = IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))
	 set tmp1 = CreateObject("rmocx.RealPlayer G2 Control")
	 if (IsObject(tmp1)) then
		 RealPlayer = true	 
		 RealPlayerG2 = true
	 end if
	 set tmp2 = CreateObject("IERPCtl.IERPCtl.1")
	 if (IsObject(tmp2)) then
		 RealOnePlayer = true
	 end if
end Function

Function CheckIEWindowsMedia()
	 on error resume next
	 set tmp3 = CreateObject("MediaPlayer.MediaPlayer.1")
	 if IsObject(tmp3) then
		 WindowsMediaPlayer = true 
		 WindowsMediaPlayerversion = tmp3.versionInfo
	 end if
	 if not WindowsMediaPlayerversion then
		 set tmp7 = CreateObject("WMPlayer.OCX.7")
		 if IsObject(tmp7) then
			 WindowsMediaPlayer = true
			 WindowsMediaPlayerversion = tmp7.versionInfo
		 end if
	 end if
end Function

Function CheckIEQuicktime()
	 on error resume next
	 set obj_qt = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
	 if IsObject(obj_qt) then
		 Quicktime = obj_qt.IsQuickTimeAvailable(0) 
		 Quicktimeversion = hex(obj_qt.QuickTimeVersion)
	 end if
end Function