方法1：
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
v:variant;
begin
v:=CreateOleObject('ShockwaveFlash.ShockwaveFlash');
if not VarIsNull(v)
then showmessage('安装的FLASH控件')
else showmessage('没有安装的FLASH控件'');
end;
方法2：
uses ActiveX;
var
AGUID: TGUID;
if not Succeeded(CLSIDFromProgID('ShockwaveFlash.ShockwaveFlash', AGUID)) then
//没安装
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
