ZipForge

[Alex711]

Здравствуйте, добавляю в zip файлы и папки

ZipForge1.FileName := (Edit1.Text+'.zip'); 
  ZipForge1.OpenArchive(fmCreate); 
  ZipForge1.BaseDir := '\'; //
  ZipForge1.AddFiles(Edit1.Text+'\events\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\backup\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\photo\*.*'); 
  ZipForge1.AddFiles(Edit1.Text+'\config.mdb'); 
  ZipForge1.CloseArchive();

В Edit1.Text имя папки в которой лежат 3 папки events, backup, photo и один файл config.mdb
Только в упакованном архиве оказывается одна папка, имя которой прописано в Edit1.Text, а уже в ней 3 папки events, backup, photo и один файл config.mdb
Как сделать, чтобы 3 папки events, backup, photo и один файл config.mdb были сразу в архиве, а не сначала в этой (Edit1.Text) одной папке?

[Shouldercannon]

На 7z это делается так

procedure TFormMain.Button1Click(Sender: TObject);
var
  SevenZip: TSevenZip;
begin
  try
    SevenZip := TSevenZip.Create(nil);
    try
      SevenZip.AddOptions := [AddRecurseDirs];
      SevenZip.AddRootDir := ExtractFilePath(Application.ExeName) + '\'; // C:\Test\
      SevenZip.LZMACompressStrength := SAVE;
      SevenZip.SZFileName := ExtractFilePath(Application.ExeName) + '\test.7z'; // C:\Test\test.7z
      SevenZip.Files.Clear;
      SevenZip.Files.AddString(ExtractFilePath(Application.ExeName) + '\1\*.*'); // C:\Test\*.* или C:\Test\file.txt
      SevenZip.Files.AddString(ExtractFilePath(Application.ExeName) + '\2\*.*'); // C:\Test\*.* или C:\Test\file.txt
      SevenZip.Files.AddString(ExtractFilePath(Application.ExeName) + '\3\*.*'); // C:\Test\*.* или C:\Test\file.txt
      SevenZip.Add;
    except
    end;
  finally
    FreeAndNil(SevenZip);
  end;
end;

[Alex711]

Разобрался, сделал так:

ZipForge1.FileName := (Edit1.Text+'.zip'); 
  ZipForge1.OpenArchive(fmCreate); 
  ZipForge1.BaseDir := Edit1.Text; 
  ZipForge1.AddFiles('\events\*.*'); 
  ZipForge1.AddFiles('\backup\*.*'); 
  ZipForge1.AddFiles('\photo\*.*'); 
  ZipForge1.AddFiles('\config.mdb');
  ZipForge1.CloseArchive();

Спасибо за ответы.