Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

ver. MDAC?   Найти похожие ветки 

← →
zx ©   (2002-08-09 12:34) [0]

Добрый день Господа!
Подскажите, как узнать версию MDAC установленную на машине?

---

← →
Ученик ©   (2002-08-09 13:55) [1]

Из Project JEDI Code Library (JCL)

function GetMDACVersion: string;
var
Key: string;
DLL: string;
Version: TJclFileVersionInfo;
begin
Result := "" ;
Key := RegReadString(HKEY_CLASSES_ROOT, "ADODB.Connection\CLSID", "");
DLL := RegReadString(HKEY_CLASSES_ROOT, "CLSID\" + Key + "\InprocServer32", "");
if VersionResourceAvailable(DLL) then
begin
Version := TJclFileVersionInfo.Create(DLL);
try
Result := Version.ProductVersion;
finally
FreeAndNil(Version);
end;
end;
end;

---

← →
SashaK   (2002-08-09 17:57) [2]

var
ADO: Variant;
ver: string;
begin
try
ADO := CreateOLEObject("adodb.connection");
ver := ADO.Version;// вот тебе версия
finally
ADO := Null;
end;
end

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.017 c