SHFileOperation: Wie Dateien mit sehr langem Dateinamen kopieren?

[mleyen]

Hilft evtl

Delphi-Quellcode:

  function LongFileNameToShortFileName(const LongFileName: string): string; inline;
  begin
    Result := '';
    SetLength(Result, GetShortPathName(PAnsiChar(LongFileName), nil, 0));
    if Length(Result) > 0 then
    begin
      GetShortPathName(PAnsiChar(LongFileName), PAnsiChar(Result), Length(Result));
      SetLength(Result, Length(Result)-1);
    end;
  end;

Ein Versuch wär´s wert