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

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 then
      //ExtractItem(items, Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

function SevenZip_ExtractFile(const aInterf: I7zInArchive; const aPath: string;
  const aSavePath: string): Boolean;
var
  i, indx: Integer;
  fs: TFileStream;
  s1, s2: string;
begin
  Result := False;
  indx := -1;
  for i := 0 to aInterf.NumberOfItems - 1 do
  begin
    if (not aInterf.ItemIsFolder) then
    begin
      s1 := LowerCase(Trim((aInterf.ItemPath + aInterf.ItemName)));
      s2 := LowerCase(Trim(aPath));
      if (s1 = s2) then
      begin
        indx := i;
        Break;
      end;
    end;
  end;
  if (indx <> -1) then
  begin
    try
      fs := TFileStream.Create(aSavePath, fmCreate or fmOpenWrite);
      try
        aInterf.ExtractItem(indx, fs, False);
        Result := True;
      finally
        FreeAndNil(fs);
      end;
    except
      Result := False;
    end;
  end;
end;