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在postgresql中读写二进制数据

Delphi分割字符串的函数--extractstrings

Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等

Delphi开发中子窗口不能置顶的问题

Delphi 查看所有的串口设备

Delphi 为当前窗口客户区捉图: getformimage

Delphi xe将图标和图像添加为资源

Delphi 判断字符是否是数字

Delphi 打开webbrowser的选中文件路径

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

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