Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Рекурсивное удаление каталога   Найти похожие ветки 

 
volser   (2004-04-10 11:24) [0]

Есть ли у кого та модуль для рекурсивного удаления каталога со всеми файлами и подкаталогами.
                 Заранне благодарен!!!


 
Anatoly Podgoretsky ©   (2004-04-10 11:56) [1]

Есть в Виндоус, модуль называется ShellApi


 
easy ©   (2004-04-10 12:52) [2]

http://sources.ru/delphi/delphi_del_directories_with_files.shtml


 
Jura ©   (2004-04-10 21:59) [3]

ЗАЧЕМ РЕКУРСИВНОЕ УДАЛЕНИЕ ???!!

ЕСТЬ ЗАМЕЧАТЕЛЬНАЯ ВЕЩЬ НА SHELLAPI:

function DelDir(dir: string): Boolean;
var
 fos: TSHFileOpStruct;
begin
 ZeroMemory(@fos, SizeOf(fos));
 with fos do
 begin
   wFunc  := FO_DELETE;
   fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   pFrom  := PChar(dir + #0);
 end;
 Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if DelDir("d:\download") then
   ShowMessage("Все удалено!");
end;


 
TButton ©   (2004-04-10 22:02) [4]

re 1
имхо ShellAPI не в виндоус, а в Delphi, но это только имхо. =)


 
Черный прапорщик   (2004-04-10 22:22) [5]

Удалено модератором


 
DrPass ©   (2004-04-10 22:39) [6]


> ShellAPI не в виндоус, а в Delphi, но это только имхо

ShellAPI - в Windows. А в Delphi - заголовочный модуль к нему.


 
Yanis ©   (2004-04-10 22:44) [7]

А может volser   (10.04.04 11:24) где нибудь учится и ему именно рекурсивный метод нужен!?


 
Fay ©   (2004-04-10 23:13) [8]

Тогда пусть сам пишет. Если и в самом деле учится... 8)


 
TButton ©   (2004-04-10 23:22) [9]

Удалено модератором


 
имя   (2004-04-10 23:27) [10]

Удалено модератором


 
имя   (2004-04-10 23:30) [11]

Удалено модератором


 
TButton ©   (2004-04-10 23:34) [12]

Удалено модератором


 
имя   (2004-04-10 23:39) [13]

Удалено модератором


 
TButton ©   (2004-04-10 23:44) [14]

нате, кушайте наздоровье

procedure TForm1.SSearch(path, mask: string);
var
 sr: TSearchRec;
 nam: string;
begin
 nam:=ExtractFileName(path);
 if (path="")or(mask="")or(nam=".")or(nam="..")then Exit;
 if FindFirst(path+"\"+mask,faAnyFile, sr)=0 then
 begin
   <удалить файл path+"\"+sr.name>
   if sr.Attr=faDirectory
     then SSearch(path+"\"+sr.Name,mask);
   while FindNext(sr)=0 do
   begin
     <удалить файл path+"\"+sr.name>
     if sr.Attr=faDirectory
       then SSearch(path+"\"+sr.Name,mask);
   end;
   FindClose(sr);
 end;
end;


 
имя   (2004-04-10 23:50) [15]

Удалено модератором


 
Jack128 ©   (2004-04-10 23:52) [16]

ShellApi - это функции Shell"а как не странно ;-) и что то мне подсказывает, что если заменить shell на нестандартный, то много чего(и может быть эта функция) не будет работать..


 
Fay ©   (2004-04-10 23:54) [17]

Удалено модератором


 
Fay ©   (2004-04-10 23:57) [18]

Удалено модератором


 
имя   (2004-04-10 23:58) [19]

Удалено модератором


 
имя   (2004-04-11 00:00) [20]

Удалено модератором


 
Fay ©   (2004-04-11 00:00) [21]

Удалено модератором


 
имя   (2004-04-11 00:04) [22]

Удалено модератором


 
Yanis ©   (2004-04-11 01:41) [23]

Удалено модератором



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.033 c
1-1081413585
Just_Lucky
2004-04-08 12:39
2004.04.25
Подключить ActiveX dll


14-1080742667
juiceman
2004-03-31 18:17
2004.04.25
Тоже ищу программу, даже две


3-1080563703
Bless
2004-03-29 16:35
2004.04.25
Как прервать асинхронное выпосление запроса, который возвращает д


14-1080575404
Тимур
2004-03-29 19:50
2004.04.25
Counter-strike


3-1080209320
Zilog
2004-03-25 13:08
2004.04.25
глюк!? Не могу изменить записи в таблице после сортировки..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский