Архивирование нескольких файлов

[alex89d]

Доброго времени суток. Использую библиотеку 7z.dll компонента sevenzip.
как через данную библиотеку заархивиравать несколько файлов их конкретной папки в один архив!?

[Shouldercannon]

procedure TFormMain.Button1Click(Sender: TObject);
var
  I: Integer;
  SevenZip: TSevenZip;
  SL: TStringList;
  procedure ListFileDir(Path: String; FileList: TStrings);
  var
    FList: TStringDynArray;
  begin
    if TDirectory.Exists(Path) then
    begin
      FList := TDirectory.GetFileSystemEntries(Path);
      for Path in FList do FileList.Add(Path);
    end;
  end;
begin
  SL := TStringList.Create;
  ListFileDir(ExtractFilePath(Application.ExeName) + 'here', SL);
  for I := 0 to SL.Count - 1 do
  begin
    // Папка или файл
    if (GetFileAttributes(PWideChar(SL.Strings[I])) and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
    begin
      // Папка
      try
        SevenZip := TSevenZip.Create(nil);
        try
          SevenZip.AddOptions := [AddRecurseDirs];
          SevenZip.AddRootDir := SL.Strings[I]; // C:\Test\
          SevenZip.LZMACompressStrength := SAVE;
          SevenZip.SZFileName := ExtractFilePath(SL.Strings[I]) + ExtractFileName(ExtractFileName(SL.Strings[I])) + '.7z'; // C:\Test\test.7z
          SevenZip.Files.Clear;
          SevenZip.Files.AddString(SL.Strings[I] + '\*.*'); // C:\Test\*.* или C:\Test\file.txt
          SevenZip.Add;
        except
        end;
      finally
        FreeAndNil(SevenZip);
      end;
    end
    else
    begin
      // Не папка
      try
        SevenZip := TSevenZip.Create(nil);
        try
          SevenZip.AddOptions := [AddRecurseDirs];
          SevenZip.AddRootDir := ExtractFilePath(SL.Strings[I]); // C:\Test\
          SevenZip.LZMACompressStrength := SAVE;
          SevenZip.SZFileName := ExtractFilePath(SL.Strings[I]) + ExtractFileName(ChangeFileExt(ExtractFileName(SL.Strings[I]), '')) + '.7z'; // C:\Test\test.7z
          SevenZip.Files.Clear;
          SevenZip.Files.AddString(SL.Strings[I]); // C:\Test\*.* или C:\Test\file.txt
          SevenZip.Add;
        except
        end;
      finally
        FreeAndNil(SevenZip);
      end;
    end;
  end;
  FreeAndNil(SL);
end;