on error resume next
act = IsObject(CreateObject("Microsoft.ActiveXPlugin.1"))
set tmp = CreateObject("DirectAnimation.DirectAnimationIntegratedMediaControl.1")
if IsObject(tmp) then
	direx = true
	direcx = tmp.PixelLibrary.VersionString
end if
set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
if IsObject(tmp) and tmp.IsSoundCardEnabled() then
	suono = true
end if
if not suono then
	set tmp7 = CreateObject("WMPlayer.OCX.7")
	if IsObject(tmp7) and tmp7.IsSoundCardEnabled() then
		suono = true
	end if
end if

set tmp = CreateObject("DirectAnimation.DirectAnimationIntegratedMediaControl.1")
if IsObject(tmp) then
i_directx = true
v_directx = tmp.PixelLibrary.VersionString
end if

set tmp = CreateObject("PDF.PdfCtrl.5")
if IsObject(tmp) then
i_acrobatreader = true
v_acrobatreader = "5"
else
set tmp = CreateObject("PDF.PdfCtrl.1")
if IsObject(tmp) then
i_acrobatreader = true
v_acrobatreader = "4"
end if
end if
if IsObject(ocx_pdf) and i_acrobatreader then
a_acrobatreader = ocx_pdf.GetVersions
end if

Function UnpackVersionNumber(n)
UnpackVersionNumber = (((n And &HF0000000) / &H10000000) & "." & ((n And &HFF00000) / &H100000) & "." & ((n And &HFF000) / &H1000) & "." & (n And &HFFF))
End Function
i_realplayer = IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))
set tmp = CreateObject("rmocx.RealPlayer G2 Control")
if (IsObject(tmp)) then
i_realplayer = true
i_realplayerg2 = true
i_realplayerplus = tmp.GetIsPlus
v_realplayer = tmp.GetVersionInfo
end if
set tmp = CreateObject("IERPCtl.IERPCtl.1")
if (IsObject(tmp)) then
i_realone = true
v_realone = UnpackVersionNumber(tmp.RealPlayerVersion)
a_realone = tmp.InstalledComponents
ver = tmp.ComponentVersion("RV:6.0")
if not IsNull(ver) then
i_realvideo = true
v_realvideo = UnpackVersionNumber(ver)
end if
end if
i_realvideo = IsObject(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)"))

set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
if IsObject(tmp) and tmp.IsSoundCardEnabled() then
i_sound = true
end if
if not i_sound then
set tmp7 = CreateObject("WMPlayer.OCX.7")
if IsObject(tmp7) and tmp7.IsSoundCardEnabled() then
i_sound = true
end if
end if
i_sound = true