Aplikasi ini merupakan aplikasi sederhana untuk mendapatkan volume serial number HD yang dapat diaplikasikan sebagai pengaman program dari pembajakan. Terutama bagi para programmer yang ingin software yang dibuatnya tidak dicopy sembarangan oleh kliennya.


function GetHardDiskSerial(const DriveLetter: Char): string;
var
  NotUsed: DWORD;
  VolumeFlags: DWORD;
  VolumeInfo: array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
  nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
  VolumeFlags, nil, 0);
  Result := Format('%8.8X',[VolumeSerialNumber])
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=Getharddiskserial('c');
end;