Системное программирование в 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.




Содержание  Назад  Вперед