Check the BDE version in your application

Problem/Question/Abstract:

Check the BDE version in your application

Answer:

Sometimes you may want to have your application check that the proper BDE version is installed.
Use the following code:

program BDEVersion;

uses
  Forms,
  DB,
  BDE,
  Dialogs,
  SysUtils;

{$R *.RES}

var
  ThisVersion: SYSVersion;
begin
  DbiGetSysVersion(ThisVersion);
  ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion));
end.