Модуль: SysUtils

Описание
Функция конвертирует длинное имя файла в DOS формат (8.3). Если указанный файл или каталог не существует, то функция возвращает пустую строку. Параметр FileName может представлять собой полное имя файла. Если указанный файл не существует, то функция возвращает пустую строку

Пример
var
   S: string;
begin
...
   S:= ExtractShortPathName( 'C:\Program Files\Accessories\ wordpad.exe');
// S:= C:\PROGRA~1\ACCESS~1\WORDPAD.EXE
...
end;