uses Bde;
function BDEInstalled: Boolean;
begin
Result := (dbiInit(nil) = 0)
end;
procedure TForm1.Button1Click(Sender: TObject);
beginif BDEInstalled then
ShowMessage('BDE is installed.')
else
ShowMessage('BDE is not installed.')
end;
Статья Проверяем установлена ли BDE раздела Базы данных BDE может быть полезна для разработчиков на Delphi и FreePascal.
