<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetSysInfo

Get BDE system status information. This function can return the SYSInfo structure or clear and add the information to the SysInfoList TStringList. lf nil is passed in, only the SYSInfo structure is returned. This example uses the following input:

 Sys := fDbiGetSysInfo(MyList);

 

The function is:

function fDbiGetSysInfo(SysInfoList: TStringList): SYSInfo;

begin

 Check(DbiGetSysInfo(Result));

if (SysInfoList <> nil) then begin

  with SysInfoList do begin

     Clear;

     Add(Format('BUFFER SPACE=%d', [Result.iBufferSpace]));

     Add(Format('HEAP SPACE=%d',   [Result.iHeapSpace]));

     Add(Format('DRIVERS=%d',      [Result.iDrivers]));

     Add(Format('CLIENTS=%d',      [Result.iClients]));

     Add(Format('SESSIONS=%d',     [Result.iSessions]));

     Add(Format('DATABASES=%d',    [Result.iDatabases]));

     Add(Format('CURSORS=%d',      [Result.iCursors]));

  end;

end;

end;