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

	Excel Reader (dll)
	Metafile Convert
	Database Information Manager
	DBExport tools
	Clarion to Text converter
	Paradox to Text converter
	Clarion Viewer
	Protected Storage Viewer
	MAPIMail
	Viewer for MS Outlook Messages

Contact to webmaster