100分求一个简单的问题答案？如何在DELPHI当中检测到本机是否装有FLASH控件？

Question

如题！，在线等，得到答案马上结帖。

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2401932

Answer 2

这不是我想的答案：其实我的意思是装了ｆｌａｓｈ控件后，在注册表里的：装了flash　6的OCX控件就会有HEEY_CLASSES_ROOT.ShockwaveFlash.ShockwaveFlash.6,的键值，装了flash7就会有HEEY_CLASSES_ROOT.ShockwaveFlash.ShockwaveFlash.7,的键值，如何得到这两个 键值

Answer 3

搞了半天,你不会读注册表啊.
郁闷...
看看TRegistry的帮助吧,不难的.

Answer 4

delphi在Registry单元里封装了注册表相关操作。顺手写一段吧：user Registry;var
  reg:TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HEEY_CLASSES_ROOT;
    if reg.OpenKey('\ShockwaveFlash.ShockwaveFlash.6\CLSID, True) then
      ShowMessage('OK');
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;

Answer 5

打错了，前面是 
uses Registry;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  reg:tregistry;
begin
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_CLASSES_ROOT;
  reg.CloseKey;
  if reg.OpenKey('ShockwaveFlash',false) then
  begin
    if reg.ReadString('hockwaveFlash')='7' then
      showmessage('installed')
    else
      showmessage('not installed');
  end else
    showmessage('not installed');
  reg.free;
end;

Answer 7

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetRegistryValue(KeyName: string): string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
       GetRegistryValue('11');
end;
function TForm1.GetRegistryValue(KeyName: string): string;
var
  Registry:TRegistry;
  AppKey:String;
begin
  Registry := TRegistry.Create(KEY_READ);
   AppKey  :='\Software\QQ';
  try
    try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    IF(Registry.OpenKey(AppKey, False)) then
    begin
           edit1.Text := Registry.ReadString('userName');
    end;
    except
     showmessage('false');
    end;
  finally
    Registry.Free;
  end;
end;
end.