判断系统是否安装了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

//没安装