Уникальный номер

i, VolumeSerialNo: DWORD;
...
GetVolumeInformation(PChar('C:\'), nil, 0, @VolumeSerialNo, i, i, nil, 0);
Memo1.Lines.Add(IntToStr(VolumeSerialNo));

i, VolumeSerialNo: DWORD;
...
GetVolumeInformation(PChar('C:\'), nil, 0, @VolumeSerialNo, i, i, nil, 0);
Memo1.Lines.Add(IntToStr(VolumeSerialNo));

function TForm1.SerialNumHDD(hdd: string): string;
var
  VolumeName, FileSystemName: array[0..MAX_PATH - 1] of Char;
  VolumeSerialNo: DWord;
  MaxComponentLength, FileSystemFlags: DWORD; //Integer;
begin
  GetVolumeInformation(pchar(hdd), VolumeName, MAX_PATH, @VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
  result := IntToHex(VolumeSerialNo, 8);
  Memo1.Lines.Add('VName = ' + VolumeName);
  Memo1.Lines.Add('SerialNo = $' + IntToHex(VolumeSerialNo, 8));
  Memo1.Lines.Add('CompLen = ' + IntToStr(MaxComponentLength));
  Memo1.Lines.Add('Flags = $' + IntToHex(FileSystemFlags, 4));
  Memo1.Lines.Add('FSName = ' + FileSystemName);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, VolumeSerialNo: DWORD;
begin
  Memo1.Clear;
 
  //GetVolumeInformation(PChar('C:\'), nil, 0, @VolumeSerialNo, i, i, nil, 0);
  Memo1.Lines.Add(SerialNumHDD('C:\'));
end;