Сокращенное имя каталога

Есть имя каталога:

c:\windows\media\temp\abc\sound\chime.wav

Мне необходима сокращенная запись, такая как

c:\windows\..\sound\chime.wav

а не полный путь к файлу.

Есть ли простой способ для этого?

Я разработал процедуру, которая делает нечто похожее. Она сокращает имя каталога, когда он и текущий путь имеют в корне тот же диск и/или часть пути, совпадающие вначале. Полученный результат (сокращенная запись) действительно легче для восприятия. Я производил кодирование в шестнадцатиричном редакторе в Borland Pascal и некоторое время не использовал. Я не думаю, что данный код может быть несовместим с последними версиями Delphi.

function shortenfilename(s: string): string;
var
  drive, curdrive: string[2];
  dir, curdir: string[80];
  name: string[20];
  ext: string[5];
  i: byte;
begin
  for i := 1 to length(s) do
    s[i] := upcase(s[i]);
  s := fexpand(s);
  fsplit(s, dir, name, ext);
  drive := copy(dir, 1, 2);
  dir := copy(dir, 4, length(dir) - 3);
  getdir(0, curdir);
  curdrive := copy(curdir, 1, 2);
  curdir := copy(curdir, 4, length(curdir) - 3) + '\';
  if drive = curdrive then
  begin
    if copy(dir, 1, length(curdir)) = curdir then
    begin
      i := length(curdir);
      if length(dir) <> i then
        dir := dir + '\';
      shortenfilename := copy(dir, i + 1, length(dir) - i - 1) + name + ext;
    end
    else
      shortenfilename := copy(s, 3, length(s) - 2);
  end
  else
    shortenfilename := s;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 300 • TDictionary Custom Sort 6 347 • Fast Watermark Sources 6 137 • 3D Designer 9 071 • Sik Screen Capture 6 458 • Patch Maker 6 875 • Айболит (remote control) 6 857 • ListBox Drag & Drop 5 733 • Доска для игры Реверси 96 624 • Графические эффекты 7 078 • Рисование по маске 6 378 • Перетаскивание изображений 5 250 • Canvas Drawing 5 621 • Рисование Луны 5 322 • Поворот изображения 4 870 • Рисование стержней 3 455 • Paint on Shape 2 713 • Генератор кроссвордов 3 590 • Головоломка Paletto 2 883 • Теорема Монжа об окружностях 3 688 • Пазл Numbrix 2 423 • Заборы и коммивояжеры 3 105 • Игра HIP 2 065 • Игра Go (Го) 1 989 • Симулятор лифта 2 350 • Программа укладки плитки 2 052 • Генератор лабиринта 2 510 • Проверка числового ввода 2 197 • HEX View 2 525 • Физический маятник 2 137