Как получить короткий путь файла если имеется длинный в Delphi?

Способ 1. Стандартная функция:

SetLength(buffer, MAX_PATH);
s := GetShortPathName(PAnsiChar(path), PAnsiChar(buffer), MAX_PATH); 
// где path это твой путь buffer строка для приема 

Способ 2. Своя функция:

function get_shortname(fname:string):string;
begin
  while pos('\',fname)>0 do
    fname:=copy(fname,pos('\',fname)+1,length(fname));
  result:=fname;
end;
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий