Olá pessoal,

Recebi hoje um e-mail de um colega com uma função bastante simples e interessante para aqueles que ainda utilizam-se do famoso Borland DataBase Engine, BDE. Sabemos que quando o mesmo não encontra-se instalado no micro recebemos uma mensagem de erro do Delphi e muitas vezes levamos algum tempo para descobrir a real causa. Por isso a função abaixo tem como principal objetivo informar se o BDE está ou não instalado.

O mais interessante disso é que é super simples. Vejam:

1. Declare a unit BDE no uses do form/unit.
2. Em seguida crie a função abaixo:

function TForm1.BDEInstalado : boolean;
begin
 Result := (dbiInit(nil) = 0)
end;

3. A utilização dela é simples veja:

procedure TForm1.Button1Click(Sender: TObject);
begin
if  BDEInstalado then
  ShowMessage('O BDE está instalado')
else
  ShowMessage('O BDE não está instalado');
end;