--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--%%%                                                                 %%%
--%%%   Esto prueba para la presencia del decodificador H264/AVC        %%%
--%%%                                                                 %%%
--%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function ir_H264Version()
	local bOK = true;

	--Comprobamos el H264/AVC en este punto . . .
	bOK = Registry.DoesKeyExist(HKEY_CLASSES_ROOT,"CLSID\\{04FE9017-F873-410E-871E-AB91661A4EF7}\\InprocServer32");

	if (bOK) then
		strFileName = Registry.GetValue(HKEY_CLASSES_ROOT,"CLSID\\{04FE9017-F873-410E-871E-AB91661A4EF7}\\InprocServer32","NoName",true);
		if (Application.GetLastError() ~= 0) then	
			bOK = false;
		end
	end


	--Si una versión fuera encontrada, ahora obtenemos la información de versión
	if (bOK) then
		verInfo = File.GetVersionInfo(strFileName);
		if(Application.GetLastError() ~= 0)then
			strVersion = "0.0.0.0";
		else
			-- Correcto, tenemos la versión de archivo
			strVersion = verInfo.FileVersion;
		end
	end
	
	--Si no hubiera ninguna versión encontrada, bOK = false, y la versión es puesta a "0.0.0.0"
	if (bOK ~= true) then
		strVersion = "0.0.0.0";
	end
	
	return strVersion;
end