Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Бастрое удаление папки вместе с файлами, Как? 
:(
    Опции темы
Dark Wanderer
Дата 16.1.2005, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Многие наверное сталкивались с тем, как быстро удаляются игрушки, почти моменально 1Гб есть и через секунду нету. Как это делается? smile
--------------------
  
PM MAIL   Вверх
p0s0l
Дата 16.1.2005, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Смотря сколько файлов, а общий размер - это почти не влияет.
Чем больше файлов нужно удалить - тем дольше будет удаление...


--------------------
С уважением, г-н Посол.
PM   Вверх
Dark Wanderer
Дата 16.1.2005, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо p0s0l возьму себе на заметку.
--------------------
  
PM MAIL   Вверх
RST8
Дата 25.1.2005, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1
Есть пример у меня - удаляет папку со всеми потрохами, мимо корзины, без глюков.
Если надо скажи. smile
--------------------
Посадка, с места которой можно уйти на собственных ногах, считается удачной!
PM   Вверх
SoWa
Дата 1.2.2005, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74
Это было где-то в общих вопросах, даже с кодом!


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
RST8
  Дата 2.2.2005, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1
Смотри. Вероятно не все в uses тебе понадобиться. вообще этот исходник я нашел на каком то форуме и немного доработал. Ничего сложного. Оригинал неправильно обрабатывал имена точками в них.

Этот пример удаляет папки со всеми вложениями.
***************************


Код

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls,FileCtrl;



//***************

procedure RemoveAll(path: string);
var
 sr: TSearchRec;
begin
 if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then
     begin
     repeat
        if sr.Attr and faDirectory = 0 then
           begin
           FileSetAttr (path + '\' + sr.name, 0);
           DeleteFile(path + '\' + sr.name);
           end
        else
           begin
           if (pos('.', sr.Name) =0) or (pos('.', sr.Name) >2) then RemoveAll(path + '\' + sr.Name);
           end;
     until FindNext(sr) <> 0;
     end;
     FindClose(sr);
     RemoveDirectory(PChar(path));
end;



******************
P.S. Если найдете какую-нибудь ошибку, то давайте исправим.

Это сообщение отредактировал(а) Alex - 2.2.2005, 14:33
--------------------
Посадка, с места которой можно уйти на собственных ногах, считается удачной!
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0433 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.