Обновлено: 01 декабря, 2018

Как получить короткий путь файла если имеется длинный в 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;

(11 оценок, среднее: 5,00 из 5)

Загрузка...