How can I get Hard Disk Serial Number?

[Gigatech]

Delphi 5. How can I get an unique number for a specific PC, for example HDD Serial Number or Motherboard serial number?<br>Thanks.

 

[pwesson]

Try this...<br><br>function GetVolumeSerialNumber: string;<br>var<br>&nbsp;&nbsp;NotUsed, VolFlags: DWORD;<br>&nbsp;&nbsp;VolSN: DWORD;<br>&nbsp;&nbsp;VolumeSerialNumber: string;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;SetCurrentDirectory(pChar(ExtractFilePath(Application.ExeName)));<br>&nbsp;&nbsp;&nbsp;&nbsp;GetVolumeInformation(nil, nil, 0, @VolSN, NotUsed, VolFlags, nil, 0);<br>&nbsp;&nbsp;&nbsp;&nbsp;VolumeSerialNumber := AnsiUpperCase(IntToHex(VolSN, 8));<br>&nbsp;&nbsp;&nbsp;&nbsp;Result := Copy(VolumeSerialNumber, 1, 4) + '-' + Copy(VolumeSerialNumber, 5, 4);<br>end;<br> <p>Paul Wesson<br><a href=mailtoaul@wessoft.com>paul@wessoft.com</a><br><a href=

http://www.wessoft.com/>Paul

Wesson, Programmer/Analyst</a><br>