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

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

//没安装