Por qué no pruebas con esto:
Incluye Db, BDE en el Uses.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
ThisVersion : SYSVersion;
begin
DbiGetSysVersion(ThisVersion);
ShowMessage('Versión del B.D.E. Utilizada = ' + IntToStr(ThisVersion.iVersion));
end;
O más ampliado según la ayuda de Delpni al respecto.
Código:
Get BDE system version information. This function can return the SYSVersion structure or clear and add the information to the SysVerList TStringList. If nil is passed in, only the SYSVersion structure is returned. This example uses the following input:
Ver := fDbiGetSysVersion(MyList);
The function is:
function fDbiGetSysVersion(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;
DBIERR_NONE The system version information was returned successfully.
Teniendo en cuenta que si esta variable retorna algo es que ha habido error y no estaría el BDE instalado.
Un Saludo.