program BDEVersion; uses Forms, DB, BDE, Dialogs, SysUtils; {$R *.RES} var ThisVersion : SYSVersion; begin DbiGetSysVersion(ThisVersion); ShowMessage('BORLAND DATABASE ENGINE VERSION = ' + IntToStr(ThisVersion.iVersion)); end;
转载于:https://www.cnblogs.com/bjxsky/articles/2829288.html