Pon un par de etiquetas sobre tu formulario:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
SerialNumber: string;
SerialNumberd:String;
begin
GetVolumeInformation('C:\',nil,0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags, nil, 0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
SerialNumberd := IntToStr(HiWord(VolumeSerialNumber) )+ '-' +
IntToStr(LoWord(VolumeSerialNumber));
label1.Caption:='El número de Volumen en Hexadecimal es: '+SerialNumber;
label2.Caption:='El número de Volumen en Decimal es: '+SerialNumberd;
end;
Un Saludo.