Форум: "Система";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c