fpc/docs/linuxex/ex42.pp
2004-07-18 11:57:11 +00:00

27 lines
714 B
ObjectPascal

Program Example42;
{ Program to demonstrate the SysInfo function. }
{$ifdef Linux} // is Linux specific.
Uses linux;
Var Info : TSysinfo;
{$endif}
begin
{$ifdef Linux}
If SysInfo (Info) then
With info do
begin
Writeln ('Uptime : ',uptime);
Writeln ('Load : ',loads[1],'/',Loads[2],'/',Loads[3]);
Writeln ('Total ram : ',TotalRam div 1024,'Kb.');
Writeln ('Free ram : ',FreeRam div 1024,'Kb.');
Writeln ('Shared ram : ',SharedRam div 1024,'Kb.');
Writeln ('Total swap : ',Totalswap div 1024,'Kb.');
Writeln ('Free swap : ',FreeSwap Div 1024,'Kb.');
Writeln ('No. Processes : ',procs);
end;
{$endif}
end.