VPF::Как в Дельфи удалить файл или НЕпустой каталог

FireTiger

Дата 14.9.2006, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.9.2006
Где: Украина г.Донецк

Репутация: нет
Всего: нет

Как в Дельфи удалить файл или НЕпустой каталог?

Пожалуйста подскажите или дайте ссылку! smile

s0neg

Дата 14.9.2006, 19:14 (ссылка)

(голосов:1)

Загрузка ...

under constraction

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.9.2006
Где: Behind You

Репутация: 1
Всего: 1

Вот пример удаления непустого каталога вместе с под каталогами:

Код


function FullRemoveDir(Dir: string; DeleteAllFilesAndFolders,
  StopIfNotAllDeleted, RemoveRoot: boolean): Boolean;
var
  i: Integer;
  SRec: TSearchRec;
  FN: string;
begin
  Result := False;
  if not DirectoryExists(Dir) then
    exit;
  Result := True;
  // Добавляем слэш в конце и задаем маску - "все файлы и директории"
  Dir := IncludeTrailingBackslash(Dir);
  i := FindFirst(Dir + '*', faAnyFile, SRec);
  try
    while i = 0 do
    begin
      // Получаем полный путь к файлу или директорию
      FN := Dir + SRec.Name;
      // Если это директория
      if SRec.Attr = faDirectory then
      begin
        // Рекурсивный вызов этой же функции с ключом удаления корня
        if (SRec.Name <> '') and (SRec.Name <> '.') and (SRec.Name <> '..') then
        begin
          if DeleteAllFilesAndFolders then
            FileSetAttr(FN, faArchive);
          Result := FullRemoveDir(FN, DeleteAllFilesAndFolders,
            StopIfNotAllDeleted, True);
          if not Result and StopIfNotAllDeleted then
            exit;
        end;
      end
      else // Иначе удаляем файл
      begin
        if DeleteAllFilesAndFolders then
          FileSetAttr(FN, faArchive);
        Result := SysUtils.DeleteFile(FN);
        if not Result and StopIfNotAllDeleted then
          exit;
      end;
      // Берем следующий файл или директорию
      i := FindNext(SRec);
    end;
  finally
    SysUtils.FindClose(SRec);
  end;
  if not Result then
    exit;
  if RemoveRoot then // Если необходимо удалить корень - удаляем
    if not RemoveDir(Dir) then
      Result := false;
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
  FullRemoveDir('C:\a', true, true, true);
end;

Вот как удалить файл в корзину:

Код


uses ShellAPI;

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), 0);
  if Wnd = 0 then
    Wnd := Application.Handle;
  FileOp.Wnd := Wnd;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(FileName);
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;
  Result := (SHFileOperation(FileOp) = 0) and (not
    FileOp.fAnyOperationsAborted);
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
  Recycle('d:\folder\filename.ext', Handle);
end;

И, наконец, что бы просто удалить файл можно воспользоваться вот этой функцией:

Код


  DeleteFile(const FileName: string): Boolean;

Советую скачать DRKB. Оттуда я и взял примеры. smile

Это сообщение отредактировал(а) s0neg - 14.9.2006, 19:15

Yanis

Дата 15.9.2006, 09:21 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код

WinExec('cmd.exe /C RD /q /s D:\dir', SW_HIDE);

--------------------

*щёлк*

FireTiger

Дата 16.9.2006, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Спасибо огромное! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »