БОЛЬШОЙ FAQ ПО DELPHI



Проверяем установлена ли 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ