.NET (2)
Database (71)
Delphi IDE (89)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
Determine the version of the BDE
This article has not been rated yet. After reading, feel free to leave comments and rate it.
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}
| ||
 |  |
|
||||||||
Comments: