// ---------- Получение пути, куда указывает символическая ссылка --------------
// Вх:   PathToSymLink - полный путь к символической ссылке на диске (папке или файлу)
// Вых:  TargetPath    - полный путь к объекту, на который указывает символическая ссылка
// Вых:  '' или текст ошибки
function GetSymLinkTarget(PathToSymLink: string; var TargetPath: string): string;
var
  LinkHandle: THandle;
  Buffer: array[0..MAX_PATH + 1] of Char;
begin
  TargetPath:='';
  result:='';

  LinkHandle := CreateFile(PChar(PathToSymLink), 0, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if LinkHandle <> INVALID_HANDLE_VALUE then
  begin
    try
      if GetFinalPathNameByHandle(LinkHandle, Buffer, MAX_PATH, FILE_NAME_NORMALIZED) > 0 then
        TargetPath:=DeletePrefixFS(Buffer) // сразу удаляем префикс вида \\?\ или \\?\UNC
      else
        result:='code '+IntToStr(GetLastError)+': '+SysErrorMessage(GetLastError);
    finally
      CloseHandle(LinkHandle);
    end;
  end
  else
    result:='code '+IntToStr(GetLastError)+': '+SysErrorMessage(GetLastError);
end;

// ---------------- Убирание префикса '\\?\' или '\\?\UNC\' вначале пути --------------------
function DeletePrefixFS(path: string): string;
var k,len:integer;
begin
  result:=path;
  result:=StringReplace(result, '\\?\', '', [rfReplaceAll]);
  if pos('UNC\',result)=1 then
  begin
    Delete(result, 1, 3);
    result:='\'+result;
  end;
end;