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;
}