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

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

Найти BDE программно [D6, Paradox]

TAHAT ©   (2003-06-27 07:03:00) 

Моя программа использует BDE 5.0. Как я могу при запуске определить, установлен ли он на данной машине ??

---

Dred2k   (2003-06-28 22:21:00) [1]

> ККВ © (27.06.03 09:26)
> try dbiInit(nil);except showmessage("BDE не установлено!")end;


uses dbtables;
// ...
try
Session.Open;
except
// <не судьба>
end;


Так с точки зрения VCL по-красивше будет... ;))

---

TAHAT   (2003-06-27 18:00:00) [2]

Спасибо за помощь... Непременно испробую все варианты...

---

Anatoly Podgoretsky   (2003-06-27 09:29:00) [3]

Вариант два конечно рабочий в отличии от варианта один.
Но я советую поступить цивилизовано - сделать инсталляцию, надо любить пользователя.

---

ККВ   (2003-06-27 09:26:00) [4]

Как проверить инсталлирована ли BDE
--------------------------------------------------------------------------------
Проверить реестр

with TRegistry.create do begin Rootkey := HKEY_LOCAL_MACHINE; OpenKey("SOFTWARE\BORLAND\DATABASE ENGINE", false); CFGFile := ReadString("CONFIGFILE01"); Free;end;


Вариант от "Anatoly Podgoretsky" (nps@nps.vnet.ee)

try dbiInit(nil);except showmessage("BDE не установлено!")end;

Я думаю не надо объяснять откуда я это взял)))

---

Anatoly Podgoretsky   (2003-06-27 08:50:00) [5]

Он не будет инсталлироваться, если он там есть и версия больше или равно.

---

TAHAT   (2003-06-27 08:27:00) [6]

Наоборот ! Зачем его устанавливать, если он там уже есть ?!
И все-таки, есть ли метод ??

---

Anatoly Podgoretsky   (2003-06-27 07:17:00) [7]

Зачем, думаешь кто то стер? Ну так запустить инсталляцию повторно.

---

Наверх