function DecodeSubstPath(APath: string): string;
var lSubstDisk, lRealDisk: string;
begin
  var MaxLength := MAX_PATH + 1;
  lSubstDisk := ExtractFileDrive(APath);
  SetLength(lRealDisk, MaxLength);
  QueryDosDevice(PChar(lSubstDisk), PChar(lRealDisk), MaxLength);
  result := Trim(StringReplace(APath,lSubstDisk,lRealDisk,[rfIgnoreCase]));
  result := StringReplace(result,'\??\','',[]);
end;