检测目录是否是Delphi中的连接点

发布时间：2020-12-15 10:14:31 所属栏目：大数据来源：网络整理

导读：我一直在谷歌搜索这个我可能会有一些脑云，因为它不工作。我需要检测一个文件夹是否是一个连接点，所以我的递归文件搜索不会流失到无限循环。我可以使用一个简单的功能 IsJunction(attr: dword): boolean; 其中attr是来自TWin32FindData的dwFileAttributes

我一直在谷歌搜索这个我可能会有一些脑云，因为它不工作。

我需要检测一个文件夹是否是一个连接点，所以我的递归文件搜索不会流失到无限循环。

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

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!