ADD: Zip - more accurate time support (fixes #1700)

(cherry picked from commit d0f9193461)
This commit is contained in:
Alexander Koblov 2024-06-16 15:06:02 +03:00
commit b4bc7c2a03

View file

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