浏览代码

ADD: Set encrypted flag

Alexander Koblov 8 年之前
父节点
当前提交
fcda7291c2
共有 1 个文件被更改,包括 4 次插入0 次删除
  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;