mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Zip - more accurate time support (fixes #1700)
(cherry picked from commit d0f9193461)
This commit is contained in:
parent
0c882703d3
commit
b4bc7c2a03
1 changed files with 2 additions and 1 deletions
|
|
@ -93,7 +93,7 @@ implementation
|
|||
|
||||
uses
|
||||
SysUtils, LazUTF8, ZipConfDlg, AbBrowse, DCConvertEncoding, DCOSUtils, ZipOpt,
|
||||
ZipLng, ZipCache;
|
||||
ZipLng, ZipCache, DCDateTimeUtils;
|
||||
|
||||
var
|
||||
PasswordCache: TPasswordCache;
|
||||
|
|
@ -227,6 +227,7 @@ begin
|
|||
HeaderData.FileCRC := CRC32;
|
||||
HeaderData.FileTime := NativeLastModFileTime;
|
||||
HeaderData.FileAttr := NativeFileAttributes;
|
||||
HeaderData.MfileTime := DateTimeToWinFileTime(LastModTimeAsDateTime);
|
||||
|
||||
if IsEncrypted then begin
|
||||
HeaderData.Flags := RHDF_ENCRYPTED;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue