Mirror

Determine the version of the BDE (Views: 711)


Problem/Question/Abstract:

Determine the version of the BDE

Answer:

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}

<< Back to main page