Os mostramos el código fuente necesario en Delphi para obtener la versión de ADO (ActiveX Data Objects) y MDAC (Microsoft Data Access Components) instalada en el equipo.

unit UnidadMenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shellapi, registry, ExtCtrls, ComObj;

type
  TformMenuPrincipal = class(TForm)
    bVersionADO: TButton;
    bCerrar: TButton;
    LWEB: TLabel;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    txtVersion: TEdit;
    Label3: TLabel;
    txtVersionCompleta: TEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    txtVersionADO: TEdit;
    procedure LWEBClick(Sender: TObject);
    procedure bVersionADOClick(Sender: TObject);
    procedure bCerrarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formMenuPrincipal: TformMenuPrincipal;

implementation

{$R *.dfm}

procedure TformMenuPrincipal.LWEBClick(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar('http://www.ajpdsoft.com'),
      Nil, Nil, SW_SHOWNORMAL);
end;

procedure TformMenuPrincipal.bVersionADOClick(Sender: TObject);
var
  objADO : OLEVariant;
begin
  with TRegistry.Create do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('Software\Microsoft\DataAccess', False) then
      begin
        txtVersion.Text := ReadString ('Version');
        txtVersionCompleta.Text := ReadString ('FullInstallVer');
        CloseKey;
      end;
    finally
      Free;
    end;
  end;

  //versión ADO
  try
    objADO := CreateOLEObject('adodb.connection');
    txtVersionADO.Text := objADO.Version;
    objADO := null;
  except
    txtVersionADO.Text := 'Desconocida';
  end;
end;

procedure TformMenuPrincipal.bCerrarClick(Sender: TObject);
begin
  close;
end;

end.

Publicado el: 2008-04-08