Array
(
)

Alguma função que verifique o MDAC?

Erucci
   - 03 jan 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


Marcio.theis
   - 03 jan 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


Marcio.theis
   - 03 jan 2006

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

#Código

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.



Erucci
   - 03 jan 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;