mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 08:10:31 +02:00
23 lines
642 B
ObjectPascal
23 lines
642 B
ObjectPascal
Program Example42;
|
|
|
|
{ Program to demonstrate the SysInfo function. }
|
|
|
|
Uses linux;
|
|
|
|
Var Info : TSysinfo;
|
|
|
|
begin
|
|
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;
|
|
end.
|