Fórum Alguma função que verifique o MDAC? #307441

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.