Mega Code Archive

 

Categories / Delphi / ADO Database

 

Check, if the borland database engine [bde] is installed

uses BDE; function CheckBDEInstalled: Boolean; begin Result := (dbiInit(nil) = DBIERR_NONE) end; procedure TForm1.Button1Click(Sender: TObject); begin if CheckBDEInstalled then ShowMessage('BDE is installed.') else ShowMessage('BDE is not installed.') end;