Odczyt ścieżki dostępu do katalogu, w którym znajduje się plik

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona ścieżka dostępu do katalogu, w którym znajduje się plik wywołujemy funkcję ExtractFileDir() lub ExtractFilePath() podając jako ich argument pełną ścieżkę dostępu do tego pliku (należy zwrócić uwagę na podwójny backslash oddzielający katalogi), funkcje te działają podobnie z tą różnicą, że funkcja ExtractFilePath() dodaje na końcu ścieżki dostępu do katalogu backslash:

Unit1.cpp

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

lub

Unit1.cpp

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