mORMot Open Source

procedure synZipZipper(const aSourceFilename,aTargetFilename:string);
    begin if (fileExists(aTargetFilename)) then DeleteFile(aTargetFilename);
          with TZipWrite.Create(aTargetFilename) do
               try AddDeflated(aSourceFilename)
               finally free end
          end;