Форум: "Основная";
Текущий архив: 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