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 api读写ini文件

Delphi 将base64字符串转化为jpeg图片

Delphi 记录鼠标点击坐标

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi学习sql语句 - insert、update、delete

进程防杀Delphi版(dll部分)

Delphi硬盘序列号修改器源码

Delphi利用系统时间产生随机数的函数

webbrowser自动填表模板

Delphi 过滤字符串首位特殊符号

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

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