Lange Dateinamen in kurze umwandeln

Quelltext

function DateinameKurz(const FileName: string): string; { Diese Funktion wandelt den übergebenen String in einen kurzen Dateinamen um } { Existiert die Datei nicht, so kommt ein leerer Return-String raus                          } var   Buffer: array[0..MAX_PATH] of Char; begin     SetString(Result, Buffer,     GetShortPathName(PChar(FileName), Buffer, SizeOf(Buffer))); end;