Bu seri numarası fabrikanın verdiği numara değildir! C:\ sürücüsünün seri numarasıdır. Diğer sürücüler için de uygulanabilir.

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;

begin

GetVolumeInformation('C:\',nil,0,@VolumeSerialNumb er,MaximumComponentLength, FileSystemFlags,nil,0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +IntToHex(LoWord(VolumeSerialNumber), 4);
Edit1.Text := SerialNumber;

end;