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

ADD: Set encrypted flag

Browse source
This commit is contained in:
Alexander Koblov 2017-07-10 13:26:22 +00:00
commit fcda7291c2
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
plugins/wcx/zip/src/ZipFunc.pas
View file

@ -192,6 +192,10 @@ begin
HeaderData.FileTime := NativeLastModFileTime;
HeaderData.FileAttr := NativeFileAttributes;
if IsEncrypted then begin
HeaderData.Flags := RHDF_ENCRYPTED;
end;
if IsDirectory then begin
HeaderData.FileAttr := HeaderData.FileAttr or faFolder;
end;