Преглед на файлове

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);