浏览代码

UPD: MultiArc - execute list command from archive directory

Alexander Koblov 3 年之前
父节点
当前提交
56b1eff92e
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      src/filesources/multiarchive/umultiarchiveutil.pas

+ 1 - 0
src/filesources/multiarchive/umultiarchiveutil.pas

@@ -182,6 +182,7 @@ begin
   FExProcess := TExProcess.Create(sCommandLine);
   FExProcess.OnReadLn := @OnReadLn;
   FExProcess.OnProcessExit:= @OnProcessExit;
+  FExProcess.Process.CurrentDirectory:= ExtractFileDir(FArchiveName);
   if Length(FMultiArcItem.FPasswordQuery) <> 0 then
   begin
     FExProcess.QueryString:= UTF8ToConsole(FMultiArcItem.FPasswordQuery);