Scalabium Software

SMReport Autogenerated
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
 
dBase Viewer
Excel Reader (dll)
Paradox Viewer
SMImport suite
SMExport suite
Viewer for TNEF-files (winmail.dat)
Protected Storage Viewer
Fast Document Viewer
Excel Web-stream
ABA Picture Convert
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

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

SMExport advertising