This function determines some information about the BDE (version):
uses
DbiTypes, DbiProcs, DbiErrs;
...
function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;
begin
Check(DbiGetSysVersion(Result));
if SysVerList <> nil then
begin
with SysVerList do
begin
Clear;
Add(Format('ENGINE VERSION=%d', [Result.iVersion]));
Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel]));
Add(Format('VERSION DATE=%s', [DateToStr(Result.dateVer)]));
Add(Format('VERSION TIME=%s', [TimeToStr(Result.timeVer)]));
end;
end;
end;
{from BDE32.hlp}