ADO Database Delphi

  1. Home
  2. Delphi
  3. ADO Database
  4. Bilgisayarda bde yüklümü
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;