Odczyt nazwy dysku
Aby odczytać nazwę dysku (w naszym przykładzie będzie to dyskietka):
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; } }