Модуль: SysUtils

Описание
Функция преобразовывает полный путь в относительный. Параметр BaseName определяет полное имя файла. Функция подсчитывает количество вложенных каталогов в параметре DestName и вставляет подстроку '..\' на место недостающих каталогов в строке BaseName. Имя диска при этом не возвращается.

Пример
var
   S: string;
begin
...
   S:= ExtractRelativePath( 'С:\DIR1\DIR2\', 'С:\DIRWORK\myfile.zzz');
// SS:= '..\..\DIRWORK\myfile.zzz'
...
end;