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

//没安装