请问如何检查系统中是否安装了某个flash控件？（100）

Question

检查一下
HKEY_CLASSES_ROOT\CLSID\{1171A62F-05D2-11D1-83FC-00A0C9089C5A}
看看注册表是否存在这个键

Answer 1

我的方法（很烂的方法）：
先在自己程序里加一个 Flash 控件，然后procedure TForm1.FormCreate(Sender: TObject);
begin
try
  n4.enabled:=false;
  f1.enabled:=false;
  n13.enabled:=false;
  n14.enabled:=false;
  n16.enabled:=false;
  n20.enabled:=false;
  trackbar1.Enabled :=false;
except
  showmessage('对不起，您的系统没有Flash组件支持，请在添加/删除程序中安装或重装系统！');
  exit
end;
end;至于删除嘛，下次想到了再告诉你，不过的确得像 X 度空间所说得那样，要在注册表里找控件路径

Answer 2

var test:olevariant;
test:=createoleobject('name of flash');
if .....

Answer 3

删除可以用Regsvr32.exe或%Delphi%\Bin\TRegSvr.exe
在%Delphi%\Demos\ActiveX\TRegSvr下有源程序(COM Server Registration utility)。

Answer 4

用DELPHI如何实现：检查系统是否安装了flash控件，没有则安装。