DELPHI/Часто задаваемые вопросы и ответы на них/Разработка баз данных



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Проверяем установлена ли BDE

Проверяем установлена ли 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;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru