como comprobar que está instalado el BDE?

[marcoszorrilla]

Por qué no pruebas con esto:

Incluye Db, BDE en el Uses.

procedure TForm1.Button1Click(Sender: TObject);
var
  ThisVersion : SYSVersion;
begin
  DbiGetSysVersion(ThisVersion);
  ShowMessage('Versión del B.D.E. Utilizada = ' + IntToStr(ThisVersion.iVersion));
end;

O más ampliado según la ayuda de Delpni al respecto.

Get BDE system version information. This function can return the SYSVersion structure or clear and add the information to the SysVerList TStringList. If nil is passed in, only the SYSVersion structure is returned. This example uses the following input:

  Ver := fDbiGetSysVersion(MyList);

The function is:

function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;

var
  Month, Day, iHour, iMin, iSec: Word;
  Year: SmallInt;
begin
  Check(DbiGetSysVersion(Result));
  if (SysVerList <> nil) then begin
    with SysVerList do begin
      Clear;
      Add(Format('ENGINE VERSION=%d', [Result.iVersion]));
      Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel]));
      Check(DbiDateDecode(Result.dateVer, Month, Day, Year));
      Add(Format('VERSION DATE=%s', [DateToStr(EncodeDate(Year, Month,

        Day))]));
      Check(DbiTimeDecode(Result.timeVer, iHour, iMin, iSec));
      Add(Format('VERSION TIME=%s', [TimeToStr(EncodeTime(iHour, iMin,
        iSec div 1000, iSec div 100))]));
    end;
  end;
end;

DBIERR_NONE The system version information was returned successfully.

Teniendo en cuenta que si esta variable retorna algo es que ha habido error y no estaría el BDE instalado.


Un Saludo.