delphi - 检测目录是否是Delphi中的联结

我一直在Google搜索此内容，因为它无法正常工作，我可能有一些大脑云。

我需要检测文件夹是否为联结，以便递归文件搜索不会陷入无休止的循环。

我可以使用一个简单的功能

IsJunction(attr: dword): boolean;

其中attr是TWin32FindData中的dwFileAttributes；

我似乎无法正常工作。谢谢！

最佳答案

dwFileAttributes的TWin32FindData没有该信息，您必须查看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;