Fix ForceDirectories not using DisableFsRedir. Not caused by revert, was left like this in 4a4c5130.

Still need to figure out if this really works or not. Thought just doing SetCurrentDir was ok but now I'm not sure.

Projects/Src/Compression.SevenZipDecoder.pas

@@ -283,7 +283,7 @@ begin
   LogFmt('Extracting 7-Zip archive %s to %s. Full paths? %s', [ArchiveFileName, DestDir, SYesNo[FullPaths]]);
 
   var SaveCurDir := GetCurrentDir;
-  if not ForceDirectories(False, DestDir) or not SetCurrentDir(DestDir) then
+  if not ForceDirectories(DisableFsRedir, DestDir) or not SetCurrentDir(DestDir) then
     raise Exception.Create(FmtSetupMessage(msgErrorExtractionFailed, ['-1']));
   try
     State.DisableFsRedir := DisableFsRedir;