确定是否安装了Flash OCX？

Question

确定Flash ocx是否安装在Innosetup（或任何安装程序）中的最佳方法是什么？我不想尝试自己安装它，我只会强制用户进入Flash网站并进行安装，我只是想确保安装了flash.ocx（版本9+）。

是否足以检查HKEY_CLASSES_ROOT \ ShockwaveFlash.ShockwaveFlash并检查CurVer> = 9？有没有更好的方法来测试这个？

Answer 1

添加功能的代码段，以检查是否可以创建Flash控件的一个实例，像这样：

function IsFlashInstalled(): boolean; 
var 
    V: Variant; 
begin 
    try 
    V := CreateOleObject('ShockwaveFlash.ShockwaveFlash.9'); 
    Result := True; 
    except 
    Result := False; 
    end; 
end; 

退房的创新安装包如何使用自己的各种实例函数向用户显示消息框，取消安装，在默认浏览器中打开Flash网站或任何您想要执行的操作。

除了

Answer 2

简单的方法没有尝试/

function IsFlashInstalled: Boolean; 
var ClassID : TCLSID; 
begin 
    Result := Succeeded(CLSIDFromProgID('ShockwaveFlash.ShockwaveFlash', ClassID));//Use CreateComObject() instead... 
end;