|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с разархивированием...
Я заступарелся с разархивированием zip архива. В общем искал я в сети долго подобные темы и толком не нашел не чего.
Правда нашел пример кода вот. Код:
var I : Integer; begin // Получаем список файлов with CreateInArchive(CLSID_CFormatZip) do begin OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip'); for I := 0 to NumberOfItems - 1 do if not ItemIsFolder[i] then end; // Распаковывает файлы with CreateInArchive(CLSID_CFormatZip) do begin OpenFile(ExtractFilePath(ParamStr(0)) + 'test.zip'); ExtractTo(ExtractFilePath(ParamStr(0)) + 'test.txt'); end; end; Только к сожалению при испытание он при исполнение дает ошибку что zip файл не найден. Подскажите в чем проблема... |