SHFileOperation: Wie Dateien mit sehr langem Dateinamen kopieren?

[HeikoAdams]

Hallo,
ich knabbere grade an folgendem Problem:
Ich kopiere diverse Dateien mittels SHFileOperation. Jetzt bekomme ich jedoch bei einigen Dateien mit einem sehr langen Dateinamen die Fehlermeldung, das der Dateiname oder die Erweiterung zu lang sei.
Kann man solche Dateien trotzdem irgendwie kopieren?

Die Funktion zum Kopieren der Dateien sieht wie folgt aus:

Delphi-Quellcode:

function ShellFileCopy(const aSource, aDest: string): Integer;
var
  SH: TSHFileOpStruct;
begin
  ZeroMemory(@SH, SizeOf(SH));

  try
    with SH do
    begin
      Wnd := 0;
      wFunc := FO_COPY;
      pFrom := PChar(aSource + #0); 
      pTo := PChar(ExtractFilePath(aDest) + #0);
      fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or
        FOF_SILENT;
    end;

    Result := SHFileOperation(SH);
  finally
     ZeroMemory(@SH, SizeOf(SH));
  end;
end;