Obtendo a versão e outras informações do bde

{Com esta rotina abaixo, você poderá obter as seguintes informações do BDE:}

ENGINE VERSION

INTERFACE LEVEL

VERSION DATE

VERSION TIME


function TForm1.VersaoBDE(SysVerList: TStringList): SYSVersion;
var
Month, Day, iHour, iMin, iSec: Word;
Year: SmallInt;
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]));
Check(DbiDateDecode(Result.dateVer, Month, Day, Year));
Add(Format('VERSION DATE=%s', [DateToStr(EncodeDate(Year, Month, Day))]));
Check(DbiTimeDecode(Result.timeVer, iHour, iMin, iSec));
Add(Format('VERSION TIME=%s', [TimeToStr(EncodeTime(iHour, iMin, iSec div 1000, iSec div 100))]));
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
S : TStringList;
Ver : SYSVersion;
begin
S:=TStringList.Create;
Ver:=VersaoBDE(S);
Memo1.Text:=S.Text;
end;