Odczyt litery dysku, na którym znajduje się plik

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona litera dysku, na którym znajduje się plik wywołujemy funkcję ExtractFileDrive() podając jako jej argument pełną ścieżkę dostępu do tego pliku (należy zwrócić uwagę na podwójny backslash oddzielający katalogi):

Unit1.cpp

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