[PhoeniX]

Нашёл обратную функцию.

Код:

function ShortPathName(const path: String): string;
var
  s: String;
begin
  Setlength(s, 255);
  if GetShortPathName(path, PChar(s), 255) = 0 then
    { Function failed; maybe the path doesn't exist }
    Result := ''
  else
    Result := Trim(s);
end;

Но эксперимент показал, что помимо GetShortPathName есть и GetFullPathName. Надеюсь, с заменой пяти символов справишься?