Browse Source

ADD: Set encrypted flag

Alexander Koblov 8 năm trước cách đây
mục cha
commit
fcda7291c2
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  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;