Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2011, 21:29   #1
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию Программно распаковать zip-архив

Подскажите как реализовать распаковку архива из программы?
есть файл update.zip, лежит в корневом каталоге программы. Необходимо его разархивировать и по умолчанию перезаписать новые файлы поверх старых (только чтобы программа не задавала лишних вопросов). На компьютере установлен Zip и 7-Zip.

Можно ли это сделать посредством ShellExecute? Какие параметры необходимо установить?
Dux вне форума Ответить с цитированием
Старый 11.12.2011, 21:38   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

у delphi есть модуль zLib для таких целей.
Читайте про TCompressionStream и TDecompressionStream.

zip может и распакует. Смотря чем ужат этот zip.
Человек_Борща вне форума Ответить с цитированием
Старый 11.12.2011, 21:43   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

пример:
Код:
7z e "c:\backup\2\de.jar" *.mf -r -y
Цитата:
Можно ли это сделать посредством ShellExecute?
можно ...параметры:
Код:
shellexecute(0,'open', pchar(path), pchar(ключи), pchar(dir), SW_NORMAL);
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 11.12.2011, 21:51   #4
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

Цитата:
можно ...параметры:
Код:
shellexecute(0,'open', pchar(path), pchar(ключи), pchar(dir), SW_NORMAL);
Код:
shellexecute(0,'open',pchar('Update.zip'),pchar(''),  pchar(''), SW_NORMAL);
Он его просто открывает. Вопрос был в том как его в фоновом режиме распаковать в текущую папку.
Dux вне форума Ответить с цитированием
Старый 11.12.2011, 22:03   #5
chertovich
Форумчанин
 
Аватар для chertovich
 
Регистрация: 26.07.2009
Сообщений: 489
По умолчанию

Надо искать в документации ключ для распаковки, а скрыть окно Winzip-а не проблема
Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.
chertovich вне форума Ответить с цитированием
Старый 11.12.2011, 22:07   #6
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

Цитата:
Сообщение от chertovich Посмотреть сообщение
Надо искать в документации ключ для распаковки, а скрыть окно Winzip-а не проблема
Спасибо Это ясно, вот я и спрашиваю - какие параметры распаковки?
Dux вне форума Ответить с цитированием
Старый 11.12.2011, 22:20   #7
chertovich
Форумчанин
 
Аватар для chertovich
 
Регистрация: 26.07.2009
Сообщений: 489
По умолчанию

Цитата:
Сообщение от Dux Посмотреть сообщение
Спасибо Это ясно, вот я и спрашиваю - какие параметры распаковки?
А чего у нас спрашиваешь, это же не мы писали WinZip, спрашивай у тех, кто писал.
Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.
chertovich вне форума Ответить с цитированием
Старый 11.12.2011, 22:23   #8
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

Цитата:
Сообщение от chertovich Посмотреть сообщение
А чего у нас спрашиваешь, это же не мы писали WinZip, спрашивай у тех, кто писал.
Delphi тоже не Вы писали...
Dux вне форума Ответить с цитированием
Старый 11.12.2011, 22:28   #9
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

PKZIP25 консольный. Shareware. По ссылке есть ключи
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 11.12.2011, 22:33   #10
chertovich
Форумчанин
 
Аватар для chertovich
 
Регистрация: 26.07.2009
Сообщений: 489
По умолчанию

Цитата:
Сообщение от Dux Посмотреть сообщение
Delphi тоже не Вы писали...
И поэтому, я его изучал (изучаю) по документации, что и Вам желаю)
Может воспользоваться другим архиватором, например WinRar-ом, я думаю про него больше инфы?
Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.
chertovich вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать zip архив через SevenZip Shouldercannon Общие вопросы Delphi 4 30.08.2011 22:24
Распаковать архив в поток Claster Помощь студентам 4 02.06.2011 20:12
как распакавать zip-архив Олька Помощь студентам 3 02.09.2008 21:54
Zip архив urels Общие вопросы Delphi 7 26.04.2008 17:31