Как получить короткий путь файла если имеется длинный?
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := ExtractShortPathName( 'D:\Program Files\' );
end; |