我一直在谷歌搜索这个我可能会有一些脑云，因为它不工作。
我需要检测一个文件夹是否是一个连接点，所以我的递归文件搜索不会流失到无限循环。
我可以使用一个简单的功能
IsJunction(attr: dword): boolean;
其中attr是来自TWin32FindData的dwFileAttributes;
我似乎无法让它上班。谢谢！
解决方法
TWO32FindData的dwFileAttributes没有该信息，您必须查看dwReserved0字段。见
documentation。
function IsJunction(const FileName: string): Boolean;
// IO_REPARSE_TAG_MOUNT_POINT = $A0000003;
var
FindHandle: THandle;
FindData: TWin32FindData;
begin
Result := False;
FindHandle := FindFirstFile(PChar(FileName),FindData);
if FindHandle <> INVALID_HANDLE_VALUE then begin
Result := (Bool(FindData.dwFileAttributes and FILE_ATTRIBUTE_REPARSE_POINT))
and Bool(FindData.dwReserved0 and $80000000) // MS bit
and Bool(FindData.dwReserved0 and $20000000) // name surrogate bit
and (LoWord(FindData.dwReserved0) = 3); // mount point value
winapi.windows.FindClose(FindHandle);
end else
RaiseLastOSError;
end;