|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Упаковка папок в архив используя ZipForge (Delphi 7)
Здравствуйте, подскажите пожалуйста как упаковать все папки и файлы находящиеся в каталоге в отдельные архивы используя ZipForge?
Получаю пути к папкам и файлам в каталоге например так: Код:
procedure TForm1.Button1Click(Sender: TObject); var searchResult : TSearchRec; begin if FindFirst(edit1.text+'*.*', faAnyFile, searchResult) = 0 then begin repeat if (searchResult.Name <> '.') and (searchResult.Name <> '..') then // игнорировать служебные папки begin listbox1.Items.Add(edit1.text+searchResult.Name); end; until FindNext(searchResult) <> 0; FindClose(searchResult); end; end; Количество и имена папок и файлов в выбранном каталоге постоянно меняется. Заранее благодарю. Последний раз редактировалось Alex7, 16.03.2019 в 09:38. |