Comprobar si está instalado el BDE, Borland Database Engine

Lenguaje de programación Borland Delphi

Para chequear la existencia de la BDE existen dos metodos:

1. Leyendo el registro de Windows:



 RootKey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\Borland\Database Engine', False);
 try
   s := ReadString('CONFIGFILE01');
   {BDE Instalada}
   {BDE Installed}
 finally
   CloseKey;
 end;

2. Intentar incializar el BDE:

Primero hay que declarar la unidad BDE en el USES del formulario. Después añadiremos un formulario y un botón, en el evento Click del mismo pondremos el siguiente código:


procedure TForm1.Button1Click(Sender: TObject);
var
 BDEInstalado : boolean;
begin
 BDEInstalado := (dbiInit(nil) = 0);
 if BDEInstalado then
   ShowMessage('El BDE está instalado.')
 else
   ShowMessage('El BDE no está instalado, no podrá ejecutar aplicaciones que utilicen bases de datos.');
end;

NOta: Es preferible el segundo método porque en el primero, una desintalación anómala del BDE podría eliminar los archivos del BDE pero no las claves en el registro de Windows.

Publicado el: 2003-09-11