procedure THIFileAttributes._work_doGetReparsePoint;//add sla8a 25_03_2025
...
var cnt:integer;
...
  
  //_debug(int2str(Buf.SubstituteNameOffset) + ' : ' + int2str(Buf.SubstituteNameLength)  + ' : ' + int2str(Buf.PrintNameOffset)  + ' : ' + int2str(Buf.PrintNameLength));
  iCounter := 0;
  cnt:=0;
    
  While cnt < Buf.SubstituteNameLength div 2 do
  begin
     if Char(Buf.DataBuffer[iCounter*2]) <> chr(0) then
	 begin 
	   cnt:=cnt+1;
	   path := path + Char(Buf.DataBuffer[iCounter*2]);
     end;     
     iCounter:=iCounter+1;
  end;
  
  
  //for iCounter := 0 to Buf.SubstituteNameLength div 2 - 1  do
  // path := path + Char(Buf.DataBuffer[iCounter * 2]);
  //Replace(path,#0,'');
  if Copy(path, 1, 4) = '\??\' then Delete(path, 1, 4); 
  l := Length(path);
  //if Copy(path, l - 1, 2) = '\?' then Delete(path, l - 1, 2);
  if Copy(path, l - 3, 4) = '\??\' then Delete(path, l - 3, 4);
  _hi_onEvent(_event_onGetReparsePoint,path);
end;

  CloseHandle(lFileHandle);
 
  //(*  for PrintName
  for iCounter := 0 to Buf.ReparseDataLength - 1  do
  if Char(Buf.DataBuffer[iCounter]) <> chr(0) then path := path + Char(Buf.DataBuffer[iCounter]);  
  path:= Copy(path, Buf.PrintNameOffset div 2, Buf.PrintNameLength div 2);  //*)
  
  (*    for SubstituteName
  for iCounter := 0 to Buf.ReparseDataLength - 1  do
  if Char(Buf.DataBuffer[iCounter]) <> chr(0) then path := path + Char(Buf.DataBuffer[iCounter]);  
  path:= Copy(path, Buf.SubstituteNameOffset div 2+1, Buf.SubstituteNameLength div 2);  
  //if Copy(path, 1, 4) = '\??\' then Delete(path, 1, 4);   //*)
  
  (*
  for iCounter := 0 to Buf.SubstituteNameLength div 2 - 1  do
   path := path + Char(Buf.DataBuffer[iCounter * 2]);
  Replace(path,#0,'');
  if Copy(path, 1, 4) = '\??\' then Delete(path, 1, 4); 
  l := Length(path);
  if Copy(path, l - 1, 2) = '\?' then Delete(path, l - 1, 2); //*)
  
  _hi_onEvent(_event_onGetReparsePoint,path);