Соединили програмисты холодильник с компом. Ну, все нормально работает. Открывают дверцу и ставят в холодильник кастрюлю с борщом. Противный голос из холодильника:
- Обнаружена кастрюля, красная, 5 литровая, борщ свежесваренный, будете устанавливать?

program InstallPrfSt;

{
Программа иллюстрирует, как установить BDE с поддержкой PARADOX 7.0
на “чистой машине” и создать алиас.
Пример использования в качестве простейшего инсталлятора для программы
C:\MyDir\MyProg.exe
1.Создайте каталог C:\MyDir\BDE и скопируйте в него след. файлы:
CHARSET.BLL
OTHER.BLL
IDAPI32.CFG
BLW32.DLL
IDAPI32.DLL
IDBAT32.DLL
IDPDX32.DLL
IDR20009.DLL
IDSQL32.DLL Читать полностью…

uses Bde;

function BDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = 0)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if BDEInstalled then
ShowMessage(’BDE is installed.’)
else
ShowMessage(’BDE is not installed.’)
end;

uses
BDE;

function CheckBDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = DBIERR_NONE)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBDEInstalled then
ShowMessage(’BDE is installed.’)
else
ShowMessage(’BDE is not installed.’)
end;

Виртуальная любовь.
Любимая! Я инсталлировался в тебя по уши. Ты переформатировала все мои мозги. В моей оперативной памяти еще не было ничего подобного. Моя винда глючит. При виде тебя у меня повышается тактовая частота, и винт увеличивается в объеме. Давай создадим с тобой директорию. Но сначала - романтический ужин при зажженных экранах. Можешь сама вызвать меню. Лично я предпочитаю CD-ром, но обещаю не перезагружаться. А потом мы отправимся на твой сайт. Или на мой. Мы откроем друг другу свои файлы. Я войду и выйду, войду и выйду. Без всяких зависаний. Вот увидишь, тебе понравится мой драйвер. И не беспокойся за свою материнскую плату, у меня есть антивирусы. Главное - не забывай вовремя сохраняться. Тебе нужно подумать? Хорошо. Когда будешь готова, кликни два раза, и я тут как тут. Только пожалуйста, как можно реже используй свою саундкарту. Тогда у нас с тобой будет полный и взаимный апгрейд.

Проверить реестр:

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

Компания Microsoft выпустила новую игру под названием Windows 2001. Цель игры - как можно за меньшее количество попыток установить её!

Читаем ключ в реестре:

RootKey := HKEY_LOCAL_MACHINE;
OpenKey(`SOFTWARE\Borland\Database Engine`, False);
try
s := ReadString(`CONFIGFILE01`);
//BDE установлена
finally
CloseKey;
end;