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

	Paradox to Text converter
	ABA Database Convert
	Viewer for TNEF-files (winmail.dat)
	DBISAM Viewer
	ABA Document Convert
	DBExport tools
	Protected Storage Viewer
	Paradox Password Recovery
	Paradox to MS Access converter
	Paradox ActiveX

Contact to webmaster