Извлечение файлов из архива

@Shur1k_ua · Регистрация: 01.06.2012

Author24 — интернет-сервис помощи студентам

Вобщем есть кнопочка, при нажатии которой, извлекается файл в нужной мне директории.
Как сделать тихую разархивацию файлов, без всяких диалогов и предупреждений об существовании таких файлов.

Delphi

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(0, nil, '"C:\Program Files\WinRAR\WinRAR.exe"', 'C:\Test\1.zip', nil, SW_HIDE);
ShellExecute(0, nil, '"C:\Program Files\WinRAR\WinRAR.exe"', 'C:\Test\2.zip', nil, SW_HIDE);
ShellExecute(0, nil, '"C:\Program Files\WinRAR\WinRAR.exe"', 'C:\Test\3.zip', nil, SW_HIDE);
end;

что то читал про SevenZipVCL но нигде нету норм мануала по его установке.

@NIKOLAYY · 19.10.2013, 23:39

Лутше компонент ZipForge попробуй, у меня безотказно работает, и пакует и извлекает.
Или тебе под "извлекать"- просто перемещать нужно?

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	19.10.2013, 23:39	2
	Лутше компонент ZipForge попробуй, у меня безотказно работает, и пакует и извлекает. Или тебе под "извлекать"- просто перемещать нужно? 0

Опции темы