Odczyt nazwy dysku

Aby odczytać nazwę dysku (w naszym przykładzie będzie to dyskietka):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   char aName[255] = "";
   char aFileSystem[255] = "";
   DWORD dwTemp;
   if (GetVolumeInformation("c:\\", aName, sizeof(aName),
                            NULL, &dwTemp, &dwTemp,
                            aFileSystem, sizeof(aFileSystem)))
   {
      Label1->Caption = aName;
   }
}