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

[милт]

Да что ж такое. Я не наверное не правильно объясняю.
Мне НЕ нужно чтобы программа умела распаковывать любые архивы. Мне надо чтобы она распаковывала только 1 вид архива, любой. понимаете?

[Fahman]

Сообщение от милт

Да что ж такое. Я не наверное не правильно объясняю.
Мне НЕ нужно чтобы программа умела распаковывать любые архивы. Мне надо чтобы она распаковывала только 1 вид архива, любой. понимаете?

"Мне НЕ нужно чтобы программа умела распаковывать любые архивы"
"Мне надо чтобы она распаковывала только 1 вид архива, любой"

Вот вы загнали меня в тупик, только 1 архив любой как понять?
Если вы знаете какой то распаковывайте его а если нет то я просто написал что надо прежде сделать проверку.......

[милт]

Я уже не знаю как ещё человеческим языком объяснить
Мне надо чтобы программа умела распаковывать хотя бы какой то 1 вид архивов из существующих. 1 вид пусть распаковывает. Ну ладно пусть будет РАР. Как РАР распаковать?

[northener]

Создаём собственный UnRar, используя unrar.dll

[doktor255]

Сообщение от милт

меня устраивает просто распаковать файл который я сам ранее запакую. просто для уменьшения размера и программной распаковки

Я рад за тебя. Ты спросил, что делать с DLL, я тебе ответил, читать мануалы по библиотеке. Учись читать что тебе пишут люди. А по самой распаковке интернет переполнен подобной информацией. Как ты её искал, я не понимаю (подозреваю, что даже не пытался искать). Ни когда в жизни не заморачивался распаковкой архивов, но почитав твои сообщения решил помочь. Итак:
Качаем ZipForge, и инсталим. Компонент под D7, D2007, но в виду того что ты не указал под какую ОС тебе нужно решение, кушай, что даю. После инсталяции в палитре компонентов появится вкладка ComponentAce Compression, а в ней невизуальный компонент ZipForge. Закидываем на форму сам компонент, и Button. Прописываем обработчик клика.

procedure TForm1.Button1Click(Sender: TObject);
begin
ZipForge1.FileName := 'D:/Reg.zip'; // Путь к zip архиву включая имя архива
ZipForge1.OpenArchive; // Чтение содержимого архива
ZipForge1.BaseDir := 'D:/1/'; // Путь распаковки
ZipForge1.ExtractFiles('*.*'); // Собственно распаковка
end;

Кладём по указанному пути архив, тыркаем в button получаем по указанному для распаковки пути распакованные файлы. Пляшем, не забываем поблагодарить за помощь. И самое главное. Ищем, и читаем мануалы по компоненту во избежании дальнейших вопросов!

[northener]

И до кучи
Работа с ZIP архивами. FWZip

[милт]

установил ZipForge но компонент tZipForge не появился. У меня делфи xe3 я скачивал компонент для неё. чёрт её пойми

[doktor255]

Учись пользоваться средой разработки. Ты как маленький ребёнок, который не может сложить 2 + 2 и просит, чтоб ему логарифм посчитали.

[Stilet]

тоже не понятно как работает.

http://www.programmersforum.ru/showthread.php?t=246543
а так же на оффсайте есть отличный пример работы с ним.

[милт]

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

http://www.programmersforum.ru/showthread.php?t=246543
а так же на оффсайте есть отличный пример работы с ним.

а что в usus надо прописать?