From 35452fc670f021e21b639b5653470e9339ab5a35 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Thu, 3 Oct 2019 12:07:16 +0000 Subject: [PATCH] * use the name of the target so that the correct attributes are retrieved (namely those of the target) git-svn-id: trunk@43109 - --- rtl/win/sysutils.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp index a3c973d153..032051194b 100644 --- a/rtl/win/sysutils.pp +++ b/rtl/win/sysutils.pp @@ -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);