هر هاردی یک سریال دارد.این سریال برای ساخت نرم افزار های تجاری و رجیستری بسیار لازم است:

 
procedure TForm1.Button1Click(Sender: T);
var
  SerialNum: DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin

  if GetVolumeInformation(
    PChar("C:\"),
    Buffer,
    256,
    @SerialNum,
    A,
    B,
    C,
    256) then Label1.Caption:=IntToStr(SerialNum);
end;

Speed test