获得BDE的系统信息

获得BDE的系统信息 　
uses dbierrs, dbiprocs, dbitypes;
{$R *.DFM}
procedure LogDbiSysInfo(const LogFile: string);
var
Info: SYSInfo;
begin
DbiGetSysInfo(Info);
with TStringList.Create do
try
Clear;
Add(Format('BUFFER SPACE: %d', [Info.iBufferSpace]));
Add(Format('HEAP SPACE: %d', [Info.iHeapSpace]));
Add(Format('DRIVERS: %d', [Info.iDrivers]));
Add(Format('CLIENTS: %d', [Info.iClients]));
Add(Format('SESSIONS: %d', [Info.iSessions]));
Add(Format('DATABASES: %d', [Info.iDatabases]));
Add(Format('CURSORS: %d', [Info.iCursors]));
SaveToFile('c:.txt');
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Open;
table2.open;
table3.Open;
LogDbiSysInfo('c:.txt');
end;
end.