[Alegun]

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

...Так мне сам пример еще запаковки и распаковки файлов 7zip нужно

Запаковка

Код:

...
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;
...