RmDir, процедура

Синтаксис


procedure RmDir(const Directory:  string);

Описание

Процедура RmDir удаляет каталог. Если она не может удалить каталог, генерируется ошибка ввода/вывода и выдается код ошибки Windows. В частности, если каталог не пустой, код ошибки равен Error_Dir_Not_ Empty (145). RmDir не является настоящей процедурой.

Ошибки

Советы и приемы

Пример


// Удаляет каталог и его содержимое.
procedure DestroyDir(const Directory:  string);
var
  Path: string;
  Search: TSearchRec;
begin
  Path := IncludeTrailingBackslash(Directory);
  if FindFirst(Path + '*.*', faAnyFile,  Search) = 0 then
  try
    repeat
      if (Search.Attr and faDirectory) <> 0 then
        DestroyDir(Path + Search.Name)
      else
        DeleteFile(Path + Search.Name);
    until FindNext(Search) <> 0;
  finally
    FindClose(Search);
  end;
  RmDir(Path);
end;

Смотрите также

Процедуры ChDir, GetDir, MkDir, функция lOResult.
    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник



2018-02-13 10:28:47

efeiuhfeihghiurhrqfjhihfihfrifrfrhfrrfhirhfhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh




Оставить комментарий:
Ваше Имя:
Email:
Антибот: *  
Ваш комментарий: