заархивировать папку

[mihali4]

как воспользоваться этими компонентами?

Там везде приложены демки и хэлпы.

[hacknet]

ну я реально пока в этом ни чего не понимаю...если Вам не сложно, то помогите??

[FaTaL]

Написал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  zip : TZipForge;
begin
  zip := TZipForge.Create(nil);
  zip.UnicodeFilenames := True;
  zip.Zip64Mode := zmAuto;
  zip.CompressionLevel := clFastest;
  zip.FileName := 'D:\ZipForge.zip';
  zip.OpenArchive (fmCreate);
  zip.BaseDir := 'D:\Dir1\Dir2\Dir3\';
  zip.AddFiles('D:\Dir1\Dir2\Dir3\*.*');
  zip.CloseArchive;
  zip.Free;
  ShowMessage ('Done');
end;

Если свойство BaseDir оставить таким, какое оно в коде, то в архиве получаются только вложенные файлы и папки, без корневой папки Dir3.
Если же это свойство вообще оставить пустым, то в архиве получаются все папки Dir1\Dir2\Dir3.
Вопрос: Как сделать извлечение из этого пути, так сказать на одну папку вверх, чтобы BaseDir была D:\Dir1\Dir2\. Вручную то конечно можно с помощью Copy, Pos, Delete и цикла, но может есть что-то более удобное?

[SLAUR]

с помощью zipforge:
(имена файлов в list)

var list:tstringlist

Form2.ZipForge1.FileName:='c:\myarh.zip';
Form2.ZipForge1.OpenArchive(fmCreate);
for i1:=0 to list.Count-1 do
  begin
    Form2.ZipForge1.AddFiles(list[i1],faAnyFile,'');
  end;
Form2.ZipForge1.CloseArchive;

Опс уже опередили