本文整理自网络，侵删。
delphi如何判断系统是否安装了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
//没安装 相关阅读 >>
Delphi 把修改好的cookies重新赋值给webbrowser1 doc
Delphi 万年历 程序源码下部分(包括：农历计算、24节气、星期计算、属相)
Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值
更多相关阅读请进入《Delphi》频道 >>
