Je nachdem ob es sich um einen
UNC-Pfad handelt, oder um ein lokales Laufwerk muss man für lange Pfade unterschiedliche Präfixes anfügen. Mein erster Versuch daraus eine Funktion zu machen:
Delphi-Quellcode:
function GetPrefixedPath(
const aPath:
string):
string;
begin
if aPath.StartsWith('
\\')
then begin
if System.IOUtils.TPath.GetExtendedPrefix(aPath)=TPathPrefixType.pptNoPrefix
then
Result := '
\\?\UNC\' + copy(aPath, 3, MaxInt)
else
Result := aPath;
end
else
Result := '
\\?\' + aPath;