确定是否安装了Flash OCX?

在“代码”部分添加一个函数,以检查是否可以创建Flash控件的实例,如下所示:

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

查看Inno安装包中的各种示例,了解如何使用您自己的功能向用户显示消息框、取消安装、在默认浏览器中打开Flash站点或执行任何操作。

简单的方法,无需尝试/例外

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