Odczyt pełnej ścieżki dostępu do pliku

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona pełna ścieżka dostępu do jakiegoś pliku wywołujemy funkcję ExpandFileName() podając jako jej argument nazwę tego pliku:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = ExpandFileName("bcb.exe");
}