Alguma função que verifique o MDAC?

Delphi

03/01/2006

Alguém teria uma função para verificar se o MDAC está instalado na máquina do cliente e qual a versão do MDAC?

Se alguém puder me ajudar

Atenciosamente

Luís Erucci


Erucci

Erucci

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

03/01/2006

Para saber qual é a versão instalada vc pode verificar a chave
HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer
no regedit, ou a chave..
HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\Version
ou ainda pode baixar um programa que a microsoft disponibilizou, para maiores informações acesse: http://www.lula.pro.br/artigo.asp?codigo=525&autor=Lula


GOSTEI 0
Marcio.theis

Marcio.theis

03/01/2006

Um pequeno exemplo de como pode fazer um programa para ler no registro do windows:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   reg: TRegistry;
   ret, ret2: string;
begin
ret:=´´;
ret2:=´´;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey(´Software\Microsoft´, True);
if reg.OpenKey(´DataAccess´, False) then
    begin
    if reg.ValueExists(´FullInstallVer´) then
        ret:=Reg.ReadString(´FullInstallVer´);
    if reg.ValueExists(´Version´) then
        ret2:=Reg.ReadString(´Version´);
    end;
Application.MessageBox(PChar(´FullInstallVer -> ´ + ret + #13 + ´Version -> ´ + ret2),´Versão do MDAC´, MB_OK or MB_ICONINFORMATION);
reg.CloseKey;
reg.Free;
end;

end.



GOSTEI 0
Erucci

Erucci

03/01/2006

eu pensei um pouco e fiz essa função, será que dá certo?

procedure verificaMDAC;
Var Conexao: TADOConnection;
Begin
try
Conexao:=TADOConnection.Create(nil);
FreeAndNil(Conexao);
// OK, tem o MDAC instalado
// Versão:: Conexao.Version;
Except
// NÃO POSSUI O MDAC INSTALADO
end;

End;


GOSTEI 0
POSTAR