Программно распаковать zip-архив

[Dux]

Сообщение от raxp

пример:

7z e "c:\backup\2\de.jar" *.mf -r -y

Подскажите, если не затруднит, где можно посмотреть по поводу параметров командной строки для 7zip?

[Аватар]

Гугл забанил?
http://7zsfx.info/ru/

[Dux]

Разобрался

shellexecute(0,'open',pchar('Unzip.bat'),pchar(''),  pchar(''), SW_NORMAL);

А в файле Unzip.bat пишем:

@ECHO OFF
SETLOCAL
SET PATH=%PROGRAMFILES%\7-zip;%PATH%
7z e "Update.zip" -r -y

[Человек_Борща]

Я бы не парился и таскал за собой 7z dll. Которую можно найти на сайте разработчика 7z, там же и файл с функциями которые можно вызвать из dll.

а вообще 5 и 6-ое сообщения данной темы - парадокс однако. Тс знает, что в справке по архиватору есть ключи управлении консольной версией. однако всеравно спрашивает где их искать/смотреть. :D

[Dux]

Новый вопрос появился, с этими параметрами

7z e "Update.zip" -r -y

Странно, но все вываливается в текущую папку - вложенность папок и файлов не сохраняется...

Какой параметр необходимо подправить?

[Dux]

Все оказалось просто:

@ECHO OFF
SET PATH=%PROGRAMFILES%\7-zip;%PATH%
7z x Update.zip -y -r

[raxp]

мда-ааа, 16 постов... TC, а для кого привел пример распаковки архива с указанием ключей на батнике и пример задания параметров в ShellExecute(), неужели так трудно подумать ?

На кой запускать батник из ShellExecute(), когда нужно просто перенести код из батника?

[oav4]

Объект Shell.Application умеет копировать из *.zip как из обычной папки. И не надо никаких библиотек и дополнительного ПО.

[Rolls]

to Dux
Спасибо, что нашёл силы проигнорить упоротых умников типа "а гугл что забанил" или "смотри документацию" и завершил свою задачу в открытом виде на форуме.
А умникам хочу сказать : 1) поделиться опытом намного проще и быстрее, чем рыться в документации; 2) если не знаете, как выполнить задачу, идите ВКонтакты, не надо гадить на форуме.

[Stilet]

Раз уж тему подняли из небытия, на всякий случай отпишу о том что заметил недавно:
Объект Shell.Application хоть и умеет копировать, но не всегда может быть вызван как Automation, т.е. в нативной программе. Мне полностью удалось только в VBS с ним работать

Set args = WScript.Arguments
		path="d:\Путь\"
		fn=path & args(0)
		Set ShellApp = CreateObject("Shell.Application")
		Set objDestFolder = ShellApp.NameSpace(path) 'куда распаковать
		Set objSrcFolder = ShellApp.NameSpace(fn) 'что распаковать
                objDestFolder.CopyHere bjSrcFolder

Ни из VB ни из Делфи OLE Automation не поддерживается. И в МСДН если ничего не путаю это написано.
Хотя да - если работа с zip можно не тянуть за собой 7z или типа того - винда все сама сделает.