Browse Source

ADD: Set encrypted flag

Alexander Koblov 8 years ago
parent
commit
fcda7291c2
1 changed files with 4 additions and 0 deletions
  1. 4 0
      plugins/wcx/zip/src/ZipFunc.pas

+ 4 - 0
plugins/wcx/zip/src/ZipFunc.pas

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