Procházet zdrojové kódy

ADD: Set encrypted flag

Alexander Koblov před 8 roky
rodič
revize
fcda7291c2
1 změnil soubory, kde provedl 4 přidání a 0 odebrání
  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;