7zip (sevenzip.pas + 7z.dll) , Распаковка определённых файлов/папок из 7zip

[Aqel]

Использую код:

Код:

uses
...sevenzip, ...
 
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Form1.sprgrsbr1.Max:= value
   else
     Form1.sprgrsbr1.Position:= value;
   Result:= S_OK;
 end;
 
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
  i: Integer;
  ItP: string;
  items: array[1..11] of Cardinal;
  sprgrsbr1: TsProgressBar;
begin
  Result:= False;
  Application.ProcessMessages;
  try
  with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile(FileName);
      SetProgressCallback(sprgrsbr1, ProgressCallback);
      for i:= 1 to NumberOfItems - 1 do
      if not ItemIsFolder[i] then
        items[1] := 1;
      //ExtractItem(items[i], Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

Как распаковать только нужные, кто знает подскажите..?

[Руслан]

Вариант - вместо dll вызывать .exe с соответствующим ключами.

[Aqel]

Цитата Руслан @ 27.09.18, 17:06

Вариант - вместо dll вызывать .exe с соответствующим ключами.

Не не катит, если 7zip не установлен, то всё - приехали...

[Gonarh]

Положи бинарь и дллку в папку с прогой ну или в кач-ве ресурсов, костыль но как вариант.

Сообщение отредактировано: Gonarh - 28.09.18, 02:56

[Aqel]

Вот - 7zip

Сообщение отредактировано: Aqel - 28.09.18, 05:08