Alguma função que verifique o MDAC?

03/01/2006

0

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

Responder

Posts

03/01/2006

Marcio.theis

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


Responder

03/01/2006

Marcio.theis

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.



Responder

03/01/2006

Erucci

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;


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar