Get informations about the BDE version
The function bellow gets some informations about the BDE version.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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; |