Системное программирование в UNIX средствами Free Pascal
Описание
uses linux;
Function CloseDir(dirptr:pdir):integer;
Функция closedir закрывает дескриптор открытого каталога, на который указывает аргумент dirptr. Обычно его значение является результатом предшествующего вызова opendir, что демонстрирует следующий пример:
uses linux;
var
dp:pdir;
begin
dp := opendir ('/tmp/dir1');
if dp = nil then
begin
writeln('Ошибка открытия каталога /tmp/dir1');
halt(1);
end;
(*
Код, работающий с каталогом
.
.
.
*)
closedir (dp);
end.
