获得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:\logcurs.txt');

finally

Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

table1.Open;

table2.open;

table3.Open;

LogDbiSysInfo('c:\logcurs.txt');

end;

end.