Function Get_BDE_Version(): String;

 

Var

 

   BDEVersion: SYSVersion;

 

   Day, Month, Hour, Min, MilliSec: Word;

 

   Year: SmallInt;

 

 

 

Begin

 

DbiGetSysVersion(Get_BDE_Version);

 

With BDEVersion Do

 

       Begin

 

       DbiDateDecode(dateVer, Month, Day, Year);

 

       DbiTimeDecode(TimeVer, Hour, Min, MilliSec);

 

       Result:= Format('Database Engine version %d.%.3d of %.2d/%.2d/%d, %.2dh:%.2dm:%.2ds',[Hi(iVersion),Lo(iVersion), Month, Day, Year, Hour, Min, MilliSec Div 1000]);

 

       End;

 

End;