BDE-Version ermitteln

[Heinz-Dieter Schlosser]

Zur Ermittlung und Anzeige der BDE-Version verwende ich folgende Procedure:

procedure TFormMain.butBdeClick(Sender: TObject);
var
ver: SYSVersion;
mo,dy,hr,mi,sc,ms: Word;
yr: Smallint;
s: String;
begin
try
Check(dbiGetSysVersion(ver));
Check(dbiDateDecode(ver.DateVer,mo,dy,yr));
Check(dbiTimeDecode(ver.TimeVer,hr,mi,ms));
sc := ms div 1000;
ms := ms mod 1000;
s := '';
s := s + 'Engine Version:'+#9+inttostr(ver.iVersion)+#13#10;
s := s + 'Interface Level:'+#9+inttostr(ver.iIntfLevel)+#13#10;
s := s + 'Version Date:'+#9+DateToStr(EncodeDate(yr,mo,dy))+#13#10;
s := s + 'Version Time:'+#9+TimeToStr(EncodeTime(hr,mi,sc,ms));
ShowMessage(s);
except
Showmessage('Es ist z.Zt. keine BDE installiert.');
end;
end;

Das Ergebnis war vor der Installation des BDE-5.11-Updates das Folgende:

Engine Version : 500
Interface Level: 500
Version Date: 04.11.1999
Version Time: 09:48:01

Ich hätte Erwartet, dass ich nach dem Update der BDE auf Version 5.11 ein Ergebnis wie

Engine Version : 511
Interface Level: 511

bekommen würde. Leider ist das nicht so, sondern die Anzeige ist gegenüber der Anzeige der BDE 5.00 unverändert.
Gibt es villeicht einen Trick mit dem man feststellen kenn, ob der BDE-Update eingespielt wurde ?