Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 4 / fsys

(* рТПЗТБННБ fsys ЧЩЧПД ЙОЖПТНБГЙЙ П ЖБКМПЧПК УЙУФЕНЕ *)
(* йНС ЖБКМПЧПК УЙУФЕНЩ РЕТЕДБЕФУС Ч ЛБЮЕУФЧЕ БТЗХНЕОФБ *)

uses linux;

var
buf:statfs;

begin
if paramcount<>1 then
begin
writeln('рТЙНЕОЕОЙЕ: fsys ЙНС_ЖБКМБ');
halt(1);
end;

if not fsstat(paramstr(1), buf) then
begin
writeln('пЫЙВЛБ ЧЩЪПЧБ fsstat');
halt(2);
end;

writeln(paramstr(1),': УЧПВПДОЩИ ВМПЛПЧ ', buf.bfree, ', УЧПВПДОЩИ ЙОДЕЛУПЧ ', buf.ffree);
halt(0);
end.