SoloCodigo

hace un tiempo atras tuve ese mismo prole y lo resolvi de esta forma

void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWord MaxFileNameLength, VolFlags, SerNum ;
char Torre[10];
strcpy(Torre,ComboBox1->Text.c_str());

GetVolumeInformation(Torre, 0, 0,
      &SerNum, &MaxFileNameLength, &VolFlags, 0, 0);
String Result;
int Ser;
Ser=SerNum;
Result = IntToHex(Ser,8) ;

Label1->Caption=Result;
}