Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#55: How can I get the serial number of a disk?

If you need retrieve the serial number of a disk, you can call the GetVolumeInformation function from Windows API. View example:

var
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
  SerialNumber: string;
begin
  GetVolumeInformation('C:\',
                       nil,
                       0,
                       @VolumeSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
                  '-' +
                  IntToHex(LoWord(VolumeSerialNumber), 4);
end;

Published: December 28, 1999

See also

	ABA Database Convert
	Paradox to Text converter
	DBLoad
	dBase Viewer
	SMMsg suite
	ExcelFile Viewer
	Fast Document Viewer
	MAPIMail
	SMImport suite
	ABA Spreadsheet Convert

Contact to webmaster