|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.05.2008, 21:18 | #1 |
Пользователь
Регистрация: 30.04.2008
Сообщений: 35
|
Удаление каталога с файлами
Вот пример Удаления файла (выбираю в файл лист бокс файл и жму удалить)
procedure TForm1.BitBtn2Click(Sender: TObject); begin // кнопка Удаление if MessageDlg('Вы уверены, что хотите удалить этот файл?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then DeleteFile(pansichar(FileListBox1.F ileName)); FileListBox1.Update; end; надо по аналогу удалить выбираемый также каталог из дериктори лист бокс со всем его содержимым. Скока не пробовал не как не получается. Если кто может напишите плиз |
27.05.2008, 21:23 | #2 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Или делайте рекурсию на удаление вручную, или удаляйте через SHFileOperation.
|
27.05.2008, 21:30 | #3 |
Пользователь
Регистрация: 30.04.2008
Сообщений: 35
|
знал бы как сделал бы
|
27.05.2008, 21:35 | #4 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
|
27.05.2008, 21:38 | #5 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можешь воспользоваться такой функцией:
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 End; IIndex:=FindNext(SearchRec); End; FindClose(SearchRec); RemoveDir(ExtractFileDir(SDir)); Result:=True; End;
Всегда рад помочь!
|
27.05.2008, 21:50 | #6 |
Пользователь
Регистрация: 30.04.2008
Сообщений: 35
|
а как это в виде процедуры одной кнопки ?
|
27.05.2008, 21:57 | #7 | |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
Цитата:
делается это очень легко Код:
|
|
27.05.2008, 22:01 | #8 |
Пользователь
Регистрация: 30.04.2008
Сообщений: 35
|
Result := (0 = ShFileOperation(fos));
[Error] Unit1.pas(341): Undeclared identifier: 'Result' чтото где то не хватает |
27.05.2008, 22:06 | #9 |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
версия Delphi?
|
27.05.2008, 22:15 | #10 |
Пользователь
Регистрация: 30.04.2008
Сообщений: 35
|
версия delphi 7
напиши плиз код готовой кнопки мож просто я тупой а не с версией Последний раз редактировалось SANTA_KLAUD; 27.05.2008 в 22:19. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите написать программу для удаления каталога с файлами | ig@r | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 18.08.2009 13:20 |
картинки из каталога | Var17 | PHP | 2 | 06.03.2008 22:05 |
Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной) | Arkuz | Общие вопросы Delphi | 12 | 25.09.2007 20:47 |
Шифрование каталога | _SERGEYX_ | Безопасность, Шифрование | 3 | 02.08.2007 15:16 |
Удаление непустого каталога | Fia | Общие вопросы Delphi | 3 | 07.05.2007 14:11 |