архивация zip

[МирзоАкмал]

Всем доброго дня,
Подскажите пожалуйста , как архивировать TEXT.txt в yyyymmdd_111.zip

[Человек_Борща]

Подключить ZLib и использовать TZCompressionStream.

[Serge_Bliznykov]

или подключить бесплатную TurboPower Abbrevia
и использовать TAbZipper
(если надо, примерчик могу предоставить)

[FaTaL]

(если надо, примерчик могу предоставить)

Кинь плиз.

[Serge_Bliznykov]

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

Кинь плиз.

вот, в виде кода (выдрал из рабочего проекта):

function ZipFiles(const Filenames: TStrings;
                  const ArcFileName, LogFileName: string): String;
var AbZipper: TAbZipper;
    i: Integer;
    S: String;
    R: Cardinal;
begin
  Result := '';
  AbZipper := TAbZipper.Create(NIL);
  try
    AbZipper.CompressionMethodToUse := smBestMethod;
    AbZipper.DeflationOption := doMaximum;
    AbZipper.StoreOptions := AbZipper.StoreOptions + [soStripPath];
    AbZipper.AutoSave := false;
    AbZipper.LogFile := LogFileName;
    if LogFileName <> '' then AbZipper.Logging := true;
    R := GetTempPath(0, nil);
    SetLength(S, R);
    R := GetTempPath(R, PChar(S));
    SetLength(S, R);
    S := S + ArcFileName;
    AbZipper.FileName := S; //ChangeFileExt(S,'.zip');
    AbZipper.OpenArchive(AbZipper.FileName);
    for  i:= 0 to FileNames.Count - 1 do
    begin
      AbZipper.AddFiles(FileNames.Strings[i], faReadOnly + faHidden);
    end;
    AbZipper.Save;
    Result := AbZipper.FileName;
    AbZipper.CloseArchive;
  finally
    AbZipper.Free;
  end;
end;

p.s. если надо, могу данный код и в отдельное демо-приложение вытянуть

[Человек_Борща]

Зачем целую библиотеку тащить ради одного ZIP?