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 Web-stream
	Database Information Manager
	Mail parser (ActiveX)
	ABA Picture Convert
	ABA Spreadsheet Convert
	Metafile Convert
	Paradox to Text converter
	MAPIMail
	ExcelFile Viewer
	Protected Storage Viewer

Contact to webmaster