Odczyt względnej ścieżki dostępu względem danego katalogu

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona względna ścieżka dostępu do pliku lub katalogu względem jakiegoś katalogu bazowego wywołujemy funkcję ExtractRelativePath() podając jako jej argumenty ścieżkę dostępu do bazowego katalogu i ścieżkę dostępu do pliku lub katalogu, którego względną ścieżkę dostępu chcemy otrzymać (należy zwrócić uwagę na podwójny backslash oddzielający katalogi):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = ExtractRelativePath("c:\\program files\\borland",
                                         "c:\\program files\\borland\\cbuilder3\\bcb.exe");
}