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

* handle unknown reparse tags as non-symlinks

Browse Source 
git-svn-id: trunk@46761 -
This commit is contained in:
svenbarth 2020-09-04 14:41:40 +00:00
parent f56539a7c9
commit 200e20fd71
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/win/sysutils.pp
View File

@ -476,16 +476,19 @@ begin
end;
end;
Handle := FindFirstFileExW(PUnicodeChar(SymLinkRec.TargetName), FindExInfoDefaults , @SymLinkRec.FindData,
FindExSearchNameMatch, Nil, 0);
if Handle <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle);
SymLinkRec.Attr := SymLinkRec.FindData.dwFileAttributes;
SymLinkRec.Size := QWord(SymLinkRec.FindData.nFileSizeHigh) shl 32 + QWord(SymLinkRec.FindData.nFileSizeLow);
end else if RaiseErrorOnMissing then
raise EDirectoryNotFoundException.Create(SysErrorMessage(GetLastOSError))
else
SymLinkRec.TargetName := '';
if SymLinkRec.TargetName <> '' then begin
Handle := FindFirstFileExW(PUnicodeChar(SymLinkRec.TargetName), FindExInfoDefaults , @SymLinkRec.FindData,
FindExSearchNameMatch, Nil, 0);
if Handle <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle);
SymLinkRec.Attr := SymLinkRec.FindData.dwFileAttributes;
SymLinkRec.Size := QWord(SymLinkRec.FindData.nFileSizeHigh) shl 32 + QWord(SymLinkRec.FindData.nFileSizeLow);
end else if RaiseErrorOnMissing then
raise EDirectoryNotFoundException.Create(SysErrorMessage(GetLastOSError))
else
SymLinkRec.TargetName := '';
end else
SetLastError(ERROR_REPARSE_TAG_INVALID);
end else
SetLastError(ERROR_REPARSE_TAG_INVALID);
finally