Ordnerstruktur im ZipFile

[Moony]

Hallo zusammen,

ich habe folgendes Anliegen:

Mit meiner bestehenden Applikation erstelle ich von verschiedenen Verzeichnissen ein ZipFile mit TZipmaster. Dies geschieht folgendermaßen:

Delphi-Quellcode:

  cz             := TZipMaster.Create(nil);
  cz.ZipFilename := MyZipFileName;
  if not DirectoryExists(Exportdir.Caption) then // Ausgabeverzeichnis für das Zip-File
    ForceDirectories(Exportdir.Caption);
  cz.AddOptions := [AddRecurseDirs, AddDirNames, AddSeparateDirs];
  cz.FSpecArgs.Add(ChangeFileExt(ImageDir.Caption, '*.*'));
  ...
  ...
  cz.Add;

  while cz.ZipBusy do
    Application.ProcessMessages;

  cz.Free;

So, das funktioniert ja alles richtig, aber es wird die komplette Verzeichnisstruktur entnommen die ich mit der Datei angebe.
Bsp.: D:\Test\MeineBilder\*.*
dann ist im Zipfile folgende Struktur: Test\MeineBilder\*.*

Hier liegt mein Problem! Ich möchte eine eigene Verzeichnisstruktur im Zip-File definieren und lediglich die Dateien kopieren.

Bsp.: D:\Test\MeineBilder\*.* -> alle Dateien aus dem MeineBilder sollen entnommen werden
im Zipfile soll die Struktur z.B. so aussehen: Kunde\Backup\Bilder\*.*


Ich hoffe die Erläuterungen sind soweit verständlich.

Danke im Voraus & Gruß, Moony