FIX: Create a symbolic link when extract a ZIP-archive under Windows (issue #2298)

This commit is contained in:
Alexander Koblov 2025-05-08 12:20:40 +03:00
commit ea52d64c6e

View file

@ -1214,7 +1214,7 @@ begin
finally {OutStream}
OutStream.Free;
end; {OutStream}
if not CreateSymLink(LinkTarget, UseName) then
if not CreateSymLink(LinkTarget, UseName, UInt32(Item.NativeFileAttributes)) then
RaiseLastOSError;
except
if ExceptObject is EAbUserAbort then