Delphi FAQ >> Файлы и каталоги
Раньше система оперировала сокращенными именами файлов. Иногда это требуется и сейчас, например чтобы не было в имени файла пробелов, но путь к нему оставался рабочим. Следующая функция на Delphi преобразует полное имя файла в краткое:
function ToShortFname(FileName: String): String;
var
buf: array[0..MAX_PATH-1] of Char;
begin SetString(Result, buffer, Windows.GetShortPathName(pchar(FileName), buf, MAX_PATH-1));
end;
Если вы хотите подарить ребенку развивающую игрушку, то вам стоит купить лего — ваш ребенок будет в восторге