[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'oldlinux' (#rtl)

# Sysinfo

Return kernel system information

## Declaration

Source position: oldlinux.pp line 1474

`function Sysinfo(`
`var Info: TSysinfo`
`):Boolean;`

## Description

SysInfo returns system information in Info. Returned information in Info includes:

uptime
  Number of seconds since boot.
loads
  1, 5 and 15 minute load averages.
totalram
  total amount of main memory.
freeram
  amount of free memory.
sharedram
  amount of shared memory.
bufferram
  amount of memory used by buffers.
totalswap
  total amount of swapspace.
freeswap
  amount of free swapspace.
procs
  number of current processes.

## Errors

None.

## See also

Uname |  | Return system name.

## Example

    program Example64;

    { Example to demonstrate the SysInfo function }

    Uses oldlinux;

    Function Mb(L : Longint) : longint;

    begin
      Mb:=L div (1024*1024);
    end;

    Var Info : TSysInfo;
        D,M,Secs,H : longint;

    begin
      If Not SysInfo(Info) then
        Halt(1);
      With Info do
        begin
        D:=Uptime div (3600*24);
        UpTime:=UpTime mod (3600*24);
        h:=uptime div 3600;
        uptime:=uptime mod 3600;
        m:=uptime div 60;
        secs:=uptime mod 60;
        Writeln('Uptime : ',d,'days, ',h,' hours, ',m,' min, ',secs,' s.');
        Writeln('Loads  : ',Loads[1],'/',Loads[2],'/',Loads[3]);
        Writeln('Total Ram  : ',Mb(totalram),'Mb.');
        Writeln('Free Ram   : ',Mb(freeram),'Mb.');
        Writeln('Shared Ram : ',Mb(sharedram),'Mb.');
        Writeln('Buffer Ram : ',Mb(bufferram),'Mb.');
        Writeln('Total Swap : ',Mb(totalswap),'Mb.');
        Writeln('Free Swap  : ',Mb(freeswap),'Mb.');
        end;
    end.

Documentation generated on: Feb 26 2014