Найти BDE программно

← →
TAHAT (2003-06-27 07:03) [0]

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

← →
Anatoly Podgoretsky © (2003-06-27 07:17) [1]

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

← →
TAHAT (2003-06-27 08:27) [2]

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

← →
Anatoly Podgoretsky © (2003-06-27 08:50) [3]

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

← →
ККВ © (2003-06-27 09:26) [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 09:29) [5]

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

← →
TAHAT (2003-06-27 18:00) [6]

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

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

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

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

Найти BDE программно Найти похожие ветки