Detectar si un directorio es un cruce en Delphi

junction

Question

He estado buscando en Google, puedo estar teniendo algunas nubes cerebrales porque simplemente no funciona.

Necesito detectar si una carpeta es una unión para que mi búsqueda recursiva de archivos no se convierta en un bucle sin fin.

Podría usar una función simple como

IsJunction(attr: dword): boolean; 

donde attr es dwFileAttributes from TWin32FindData;

Parece que no puedo hacerlo funcionar. ¡Gracias!

Answer 1

También puede probar la unidad JclNTFS JCL (Biblioteca de códigos JEDI).
Tiene algunos métodos para tratar las uniones, por ejemplo:
NtfsIsFolderMountPoint / NtfsGetJunctionPointDestination .

Answer 2

dwFileAttributes of TWin32FindData no tiene esa información, debe buscar el campo dwReserved0 . Ver 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;