mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Disable modification of temporary archives

Browse source 
(cherry picked from commit 23252a36f9)
This commit is contained in:
Alexander Koblov 2024-11-23 23:36:53 +03:00
commit 740d699f61
1 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/filesources/wcxarchive/uwcxarchivefilesource.pas
View file

@ -151,6 +151,7 @@ uses
DCFileAttributes,
FileUtil, uCryptProc,
uWcxArchiveListOperation,
uTempFileSystemFileSource,
uWcxArchiveCopyInOperation,
uWcxArchiveCopyOutOperation,
uWcxArchiveDeleteOperation,
@ -588,10 +589,14 @@ function TWcxArchiveFileSource.CreateCopyInOperation(
var
TargetFileSource: IFileSource;
begin
TargetFileSource := Self;
Result := TWcxArchiveCopyInOperation.Create(SourceFileSource,
TargetFileSource,
SourceFiles, TargetPath);
if ParentFileSource is ITempFileSystemFileSource then
Result := nil
else begin
TargetFileSource := Self;
Result := TWcxArchiveCopyInOperation.Create(SourceFileSource,
TargetFileSource,
SourceFiles, TargetPath);
end;
end;
function TWcxArchiveFileSource.CreateCopyOutOperation(
@ -611,9 +616,13 @@ function TWcxArchiveFileSource.CreateDeleteOperation(var FilesToDelete: TFiles):
var
TargetFileSource: IFileSource;
begin
TargetFileSource := Self;
Result := TWcxArchiveDeleteOperation.Create(TargetFileSource,
FilesToDelete);
if ParentFileSource is ITempFileSystemFileSource then
Result := nil
else begin
TargetFileSource := Self;
Result := TWcxArchiveDeleteOperation.Create(TargetFileSource,
FilesToDelete);
end;
end;
function TWcxArchiveFileSource.CreateExecuteOperation(var ExecutableFile: TFile;