Функция ExtractRelativePath ( const BaseName, DestName: string ): string;
Модуль: SysUtils
Описание
Функция преобразовывает полный путь в относительный. Параметр BaseName определяет полное имя файла.
Функция подсчитывает количество вложенных каталогов в параметре DestName и вставляет подстроку '..\' на место недостающих каталогов в строке BaseName. Имя диска при этом не возвращается.
Пример var
S: string; begin
...
S:= ExtractRelativePath( 'С:\DIR1\DIR2\', 'С:\DIRWORK\myfile.zzz'); // SS:= '..\..\DIRWORK\myfile.zzz'
... end;
