获得BDE的系统信息

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
获得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.
 

Similar threads

I
回复
0
查看
586
import
I
I
回复
0
查看
595
import
I
I
回复
0
查看
559
import
I
I
回复
0
查看
1K
import
I
I
回复
0
查看
2K
import
I
顶部