判断系统是否安装了flash插件
Posted blogpro
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了判断系统是否安装了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
//没安装
以上是关于判断系统是否安装了flash插件的主要内容，如果未能解决你的问题，请参考以下文章