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

本文整理自网络，侵删。

 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 对比时间的函数

Delphi 存储文件到数据库

Delphi获取网卡mac地址

Delphi 注释方法

Delphi tadodataset 加载数据到fdmemtable1

Delphi 把窗体客户区图像保存到文件或剪切板

Delphi udp文件传输

Delphi winapi: flashwindow - 闪烁窗口

Delphi使用cef4Delphi制作chromium谷歌内核浏览器

Delphi tdbgrideh导出excel

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi如何判断系统是否安装了flash插件