Scalabium Software

SMExport advertising
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
 
Metafile Convert
SMReport
DBISAM Password Recovery
Excel Web-stream
ABA Spreadsheet Convert
ABA Picture Convert
Mail parser (ActiveX)
Paradox to Text converter
Paradox to MS Access converter
SMExport suite
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2019, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport/SMImport suites