| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ver. MDAC? [D6, MSSQL]

zx ©   (2002-08-09 12:34:00) 

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

---

SashaK   (2002-08-09 17:57:00) [1]

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

---

Ученик   (2002-08-09 13:55:00) [2]

Из 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;

---

Наверх