[Alexandr_57]

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

Запаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Files.AddString('Text.txt');
   Add;
   Free;
  end;
...

распаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Extract(false);
   Free;
  end;
...

С показом на progressbar и вшить потом информацию. Кстати. TSevenZip у меня как компонент