paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 11:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the name of the target so that the correct attributes are retrieved (namely those of the target)

Browse Source 
git-svn-id: trunk@43109 -
This commit is contained in:
svenbarth 2019-10-03 12:07:16 +00:00
parent b289805a91
commit 35452fc670
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysutils.pp
View File

@ -472,7 +472,7 @@ begin
end;
end;
Handle := FindFirstFileExW(PUnicodeChar(FileName), FindExInfoDefaults , @SymLinkRec.FindData,
Handle := FindFirstFileExW(PUnicodeChar(SymLinkRec.TargetName), FindExInfoDefaults , @SymLinkRec.FindData,
FindExSearchNameMatch, Nil, 0);
if Handle <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle);