mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Ability to handle long paths for zip archiver (issue #1581)

Browse source 
(cherry picked from commit 5a48d0b603)
This commit is contained in:
Alexander Koblov 2024-04-15 20:43:54 +03:00
commit 6e9c699241
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
plugins/wcx/zip/src/fparchive/abutils.pas
View file

@ -38,6 +38,7 @@ interface
uses
{$IFDEF MSWINDOWS}
Windows,
DCWindows,
DCConvertEncoding,
{$ENDIF}
{$IFDEF LibcAPI}
@ -1261,7 +1262,7 @@ begin
aAttr.Attr := -1;
aAttr.Mode := 0;
{$IFDEF MSWINDOWS}
Result := GetFileAttributesExW(PWideChar(CeUtf8ToUtf16(aFileName)), GetFileExInfoStandard, @FindData);
Result := GetFileAttributesExW(PWideChar(UTF16LongName(aFileName)), GetFileExInfoStandard, @FindData);
if Result then begin
aAttr.Time := WinFileTimeToDateTime(FindData.ftLastWriteTime);
LARGE_INTEGER(aAttr.Size).LowPart := FindData.nFileSizeLow;