Du solltest auch die letze Zeile von Hitsumi beachten.
Siehe
http://msdn.microsoft.com/en-us/libr...9.aspx#maxpath
Wir haben eine Funktion, die das automatische macht.
Delphi-Quellcode:
function LongFileName(AFileName:
string):
string;
var
MaxPath: Word;
begin
Result := AFileName;
MaxPath := Length(ExtractFilePath(AFileName));
// der Pfad darf nur 247 Zeichen lang sein
// 12 Zeichen sind für den Dateinamen reserviert
if (MaxPath >= MAX_PATH - 12)
and (Copy(AFileName, 1, 4) <> '
\\?\')
then
if Copy(AFileName, 1, 2) = '
\\'
then
Insert('
\?\UNC', Result, 2)
else
Result := '
\\?\' + Result;
end;