检测系统是否已安装了ADO(用ACCESS库时常用)

uses registry;

    function Tform1.ADOInstalled:Boolean;

    var

    r:TRegistry;

    s:string;

    begin

      r := TRegistry.create;

      try

      with r do

      begin

        RootKey := HKEY_CLASSES_ROOT;

        OpenKey( '\ADODB.Connection\CurVer', false );

        s := ReadString('');

        if s <> '' then Result := True

        else Result := False;

        CloseKey;

      end;

      finally

       r.free;

      end;

    end;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

     if ADOInstalled then showmessage('this computer has installed ADO');

    end;