Sysinfo

Return kernel system information.

Declaration

Source position: linux.pp line 73

Description

SysInfo returns system information in Info. The function result is 0 if the call was successful. 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

On error, -1 is returned.

See also

Example

program Example64;

{$R-}
{ Example to demonstrate the SysInfo function.
  Sysinfo is Linux-only. }

{$ifdef Linux}
Uses Linux;

Function Mb(L : Longint) : longint;

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

Var Info : TSysInfo;
    D,M,Secs,H : longint;
{$endif}

begin
  {$ifdef Linux}
  If Not (SysInfo(@Info)=0) 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;
  {$endif}
end.