检测MDAC版本

Question

如何做一个程序，运行时先检测MDAC版本，如是2.5以下，就自动安装。否则则运行自己的程序。多谢了，分数不够可以再加

Answer 1

检测ADO版本号的函数，稍叫修改，便可以
function ADOVersion: Extended; //ADO版本号
var
  ADO: Variant;
  eVersion: Extended;
begin
  try
    try
      ADO := CreateOLEObject('adodb.connection');
    except
      //捕捉异常，便可以
      ;
    end;
    eVersion := StrToFloat(ADO.Version);
    ADO := null;
    Result := eVersion;
  except
    on E: Exception do begin
      //ErrorMsg:我自己写的过程
      ErrorMsg('本应用程序需要安装Microsoft MDAC Version 2.6或者更高版本！');
      Exit;
    end;
  end;
end;