Как узнать сокращенное имя файла?

Раньше система оперировала сокращенными именами файлов. Иногда это требуется и сейчас, например чтобы не было в имени файла пробелов, но путь к нему оставался рабочим.

Следующая функция на 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;

 

 

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *