Замена Abbrevia компонентам

[ISaminov]

Если извлекать папку - то извлекается папка. Любой архиватор так работает.

[Пепел Феникса]

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

Если извлекать папку - то извлекается папка. Любой архиватор так работает.

зачем повторять ранний пост символ в символ?
тем более я уже отвечал на подобное.

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

Если извлекать папку - то извлекается папка. Любой архиватор так работает.

У того же WinRAR есть параметр -e1. Который отсекает корневой каталог.
Проблему давно решил дописав руками класс.

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

Подыму темку.
се же взял SevenZip в оборот.

Как извлекать папки?
Как указывать, куда их извлекать?

вот есть папка Update:

                  for i := 0 to CurrentPatch.Arch.NumberOfItems - 1 do
                  begin
                    if (CurrentPatch.Arch.ItemIsFolder[i]) then
                    begin
                      if (CurrentPatch.Arch.ItemName[i] = 'Update') then
                        Indx := i;
                      Break;
                    end;
                  end;
                  fs := TFileStream.Create(TempDir + 'Update\',
                    fmCreate or fmOpenReadWrite);
                  try
                    CurrentPatch.Arch.ExtractItem(Indx, fs, False); //но это не файл а папка, как с ним быть?
                  finally
                    FreeAndNil(fs);
                  end;

Пока что лезет в голову рекурсия, но ...

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

Сообщение от Человек_Борща

Подыму темку.
се же взял SevenZip в оборот.

Как извлекать папки?
Как указывать, куда их извлекать?

вот есть папка Update:

                  for i := 0 to CurrentPatch.Arch.NumberOfItems - 1 do
                  begin
                    if (CurrentPatch.Arch.ItemIsFolder[i]) then
                    begin
                      if (CurrentPatch.Arch.ItemName[i] = 'Update') then
                        Indx := i;
                      Break;
                    end;
                  end;
                  fs := TFileStream.Create(TempDir + 'Update\',
                    fmCreate or fmOpenReadWrite);
                  try
                    CurrentPatch.Arch.ExtractItem(Indx, fs, False); //но это не файл а папка, как с ним быть?
                  finally
                    FreeAndNil(fs);
                  end;

Пока что лезет в голову рекурсия, но ...

Проблему решил.