Como saber si esta instalado el BDE en un ordenador

[roman]

Posteado originalmente por Jose Manuel

He incluido esta instrucción en el Datamodulo de mi aplicación,

procedure TfDataModulo.fDataModuloCreate(Sender: TObject);
begin
IsBDEExist := (dbiInit(nil) = 0)
.....
.....
End;

y me da el siguiente error al compilarlo, tal vez me falte algún USES, no sé:

[Error] Database.pas(531): Undeclared identifier: 'IsBDEExist'

No te falta ningún uses sino leer con un poco más de cuidado antes de copiar y pegar. El truco esencialmente dice (mejor dicho la línea de código por que el truco en sí no lo he visto) que si la funcion dbiInit devuelve 0 es porque sí está instalado y si devuelve distinto de cero es porque no está instalado.

Entonces, la expresión (dbiInit(nil) = 0), que es una expresión booleana, la puedes asignar a una variable de tu elección, declarada por tí.

// Saludos