* fix for Mantis #35744: applied patch by Anton Kavalenka to correctly implement FileGetSymLinkTarget

git-svn-id: trunk@42456 -

rtl/win/sysutils.pp

@@ -466,7 +466,7 @@ begin
             IO_REPARSE_TAG_SYMLINK: begin
               SymLinkRec.TargetName := WideCharLenToString(
                 @PBuffer^.PathBufferSym[PBuffer^.PrintNameOffset div SizeOf(WCHAR)],
-                PBuffer^.PrintNameOffset div SizeOf(WCHAR));
+                PBuffer^.PrintNameLength div SizeOf(WCHAR));
               if (PBuffer^.Flags and SYMLINK_FLAG_RELATIVE) <> 0 then
                 SymLinkRec.TargetName := ExpandFileName(ExtractFilePath(FileName) + SymLinkRec.TargetName);
             end;