Überprüfen ob die BDE installiert ist

[Daniel B]

Hallo,

Delphi-Quellcode:

function BDEInstalled: Boolean;
begin
 Result := (DBiInit(nil) = 0);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
 if BDEInstalled then
   ShowMessage('BDE ist installiert!')
 else
   ShowMessage('BDE ist nicht installiert!');
end;

Unit BDE nicht vergeesen in den Uses aufzunehmen.

Grüsse, Daniel