Проверяем установлена ли BDE
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;
|
|
|
  |
|
Обучение 1С, все программы 1С: обучение 1с. Курсы обучения в Москве. . Цирковое шоу Золотой Буфф - билеты в цирк. Билеты в Цирки Москвы. . Пускатели пмл от дилера завода - пускатель пмл. Низковольтная аппаратура. . Современные межкомнатные двери Магазин Галерея Дверей Казань . |