Обнаружение, является ли каталог соединением в Delphi

Я искал в Google это, у меня могут быть мозговые облака, потому что они просто не работают.

Мне нужно определить, является ли папка переходом, поэтому мой рекурсивный поиск файлов не переходит в бесконечный цикл.

Я мог бы использовать простую функцию, как

IsJunction(attr: dword): boolean;

где атрибут dwFileAttributes из TWin32FindData;

Я просто не могу заставить его работать. Спасибо!

Источник

2 ответа

Решение

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;
Источник

Вы также можете попробовать JCL (Библиотека кодов JEDI) JclNTFS Блок.
у него есть несколько методов для работы с перекрестками, например:
NtfsIsFolderMountPoint / NtfsGetJunctionPointDestination,

Источник
Другие вопросы по тегам