Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
6-56253
Novichek
2002-08-15 16:45
2002.10.17
Отправка писем


1-56075
eLVik
2002-10-07 18:58
2002.10.17
TFont и Exception


1-56047
^Sanya
2002-10-07 23:49
2002.10.17
DLLs: Invalid Pointer Operation


3-55996
Карелин Артем
2002-09-11 09:34
2002.10.17
ADO


1-56130
NorthMan
2002-10-09 12:54
2002.10.17
Как можно послать QReport на принтер, минуя очередь печати?