判断系统是否安装了flash插件

标签：cli   ima   use   loading   wave   begin   active   message   else   

方法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

//没安装  

判断系统是否安装了flash插件

标签：cli   ima   use   loading   wave   begin   active   message   else   

原文地址：https://www.cnblogs.com/blogpro/p/11453477.html