Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Создание цветных строк в ListBox
   Категория: Компоненты
  Как удалить не пустой каталог
   Категория: Файловая система
  Установить в программу свои шрифты
   Категория: Приложение
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  Что значит Paramstr
   Категория: Приложение
  Округление в большую сторону
   Категория: Математика
  Возвести в степень
   Категория: Математика
  Вставить иконки в Grid
   Категория: Компоненты
Delphi - База Знаний: Как удалить не пустой каталог

  << Вернуться к Содержанию  

function MyRemoveDir(sDir : string) : Boolean;
var
  iIndex: Integer;
  SearchRec: TSearchRec;
  sFileName: string;
begin
  Result := False;
  sDir := sDir + '\*.*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
  begin
    sFileName := ExtractFileDir(sDir)+'\'+SearchRec.name;
    if SearchRec.Attr = faDirectory then
    begin
      if (SearchRec.name <> '' ) and (SearchRec.name <> '.') and
      (SearchRec.name <> '..') then
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

  << Вернуться к Содержанию