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

Question

我一直在谷歌搜索这个我可能有一些脑云,因为它不起作用.

我需要检测文件夹是否是一个联结,所以我的递归文件搜索不会运行到无限循环.

我可以使用像这样的简单函数

IsJunction(attr: dword): boolean; 

其中attr dwFileAttributes来自TWin32FindData;

我似乎无法让它工作.谢谢!

Answer 1

dwFileAttributes中TWin32FindData并没有这些信息,你必须寻找到的dwReserved0领域.见文档.

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;

Answer 2

您也可以尝试JCL(JEDI代码库)JclNTFS单元.
它有一些处理结点的方法,例如:
NtfsIsFolderMountPoint/ NtfsGetJunctionPointDestination.