Проблема с распаковкой архива .bz2 при помощи 7zip

[ilya4743]

Нужно программно распаковать архив BZ2. Для этого использую архиватор 7-zip (sevenzip.pas и 7z.dll) со следующим кодом:

...
uses SevenZip;
...
begin
with CreateInArchive(CLSID_CFormatBZ2) do
begin
OpenFile('B:\TF2 md\Archiv1\example.csv.bz2');
ExtractTo('B:\TF2 md\Archiv1\');
end;
end;

Проблема: на строчке ExtractTo('B:\TF2 md\Archiv1\') выдает ошибку "Cannot create file "'B:\TF2 md\Archiv1\'". Системе не удаётся найти указанный путь" Но ошибка не в том, что нет этой папки, она есть (см.рис) и соответствующих прав хватает. А затем сразу после этой ошибки вылезает следующая (см. рис.). Причем, если ради эксперимента я беру сторонний архив с расширением .RAR или .ZIP или .7Z(под каждый тип меняя CLSID_CFormatZIP, CLSID_CFormat7z и CLSID_CFormatRAR), то все работает нормально. Но архив не мой, поэтому изменить тип архива не в моих силах, надо распаковывать bz2.

Я пытался найти на просторах интернета решение своей проблемы, но мои поиски особо ни к чему не привели . Я лишь понял, что при bz2 распаковке в имя файла почему-то записывается пустая строка, но где и как это исправить я без понятия. Где-то я читал, что следует указать имя файла явно, т. к. архив bz2 не хранит в себе имени, но что это значит?

Подскажите пожалуйста как решить эту проблему.
[IMG]



[/IMG]

[Artsiom]

Напиши так:

ExtractTo('B:\TF2 md\Archiv1\example.csv');

[ilya4743]

К сожалению это не помогает
Результатом остаются все те же ошибки

[Artsiom]

Хз, я бы по своему нубству предложил бы забить на sevenzip.pas...

procedure Execute(Path, Parametrs : string);
var
  SI: TStartupInfo;
  PI: TProcessInformation;
  Exe: String;
begin
  Form1.Enabled := False;
  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(SI);

//Exe := '"C:\Program Files (x86)\7-Zip\7z.exe" x players_2016_10_22_13.csv.gz';
//Exe := '"C:\Program Files (x86)\WinRAR\WinRAR.exe" x players_2016_10_22_13.csv.gz';
  Exe := Path + ' x ' + Parametrs;
  UniqueString(Exe);

  if CreateProcess(nil, PChar(Exe), 0, 0, False, 0, 0, 0, SI, PI) then
    begin
      //ждём завершения процесса
      WaitForSingleObject(pi.hProcess, INFINITE);
      CloseHandle(pi.hProcess);
      CloseHandle(pi.hThread);
    end
  else
    ShowMessage('NO!');
  Form1.Enabled := True;
end;

[Alex11223]

Винрар-то зачем если есть бесплатный 7-zip? И даже в виде 1 файла (7za.exe) для таскания с собой.

[Artsiom]

Винрар красивый
Классно смотрится в контекстном меню ^_^

[FaTaL]

ilya4743, архив скинь, который хочешь распаковать.

[ilya4743]

Ну например этот. Особого значения я думаю это не имеет.
http://rgho.st/8C5zrpdQk