[ecfisa]

Hola thecidmx.

Código Delphi [-]
function GetSerialDisk(Drive: Char): String;
var
  MaxFileNameLen, VFlags, SNum: DWORD;
begin
  if GetVolumeInformation(PChar(Drive + ':\'), nil, 0, @SNum, MaxFileNameLen, VFlags, nil, 0) then
    Result := IntToHex(SNum,8)
  else
    Result := '';
end;

Llamada de ejemplo:

Código Delphi [-]
  ShowMessage(GetSerialDisk('C'));

Saludos.