delphi - ディレクトリが Delphi のジャンクションかどうかの検出

Question

私はこれをGoogleで検索してきましたが、機能していないため、脳の雲が発生している可能性があります.

再帰的なファイル検索が無限ループに陥らないように、フォルダーがジャンクションかどうかを検出する必要があります。

次のような単純な関数を使用できます

IsJunction(attr: dword): boolean; 

attr はdwFileAttributesTWin32FindData からのものです。

私はそれを機能させることができないようです。ありがとう！

Answer 1

dwFileAttributesof に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 Code Library)JclNTFSユニットも試すことができます。
ジャンクションを処理するためのメソッドがいくつかあります (例:
NtfsIsFolderMountPoint/ ) NtfsGetJunctionPointDestination。