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

FIX: WCX - restore directory attributes after CloseArchive

Browse source
This commit is contained in:
Alexander Koblov 2024-12-28 17:33:34 +03:00
commit c7cf06829c
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/filesources/wcxarchive/uwcxarchivecopyoutoperation.pas
View file

@ -393,12 +393,15 @@ begin
FreeAndNil(Header);
end;
if (FExtractWithoutPath = False) then SetDirsAttributes(CreatedPaths);
finally
// Close archive, ignore function result, see:
// https://www.ghisler.ch/board/viewtopic.php?p=299809#p299809
iResult := WcxModule.CloseArchive(ArcHandle);
// Execute after CloseArchive
if (ExceptObject = nil) and (FExtractWithoutPath = False) then
begin
SetDirsAttributes(CreatedPaths);
end;
// Free memory
FreeAndNil(Files);
FreeAndNil(MaskList);