delphi中如何获得硬盘序列号

function GetVolumeID : string; var vVolumeNameBuffer: array[0..255]of Char; vVolumeSerialNumber: DWORD; vMaximumComponentLength: DWORD; vFileSystemFlags: DWORD; vFileSystemNameBuffer: array[0..255]of Char; begin if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(vVolumeNameBuffer), @vVolumeSerialNumber, vMaximumComponentLength, vFileSystemFlags, vFileSystemNameBuffer, SizeOf(vFileSystemNameBuffer)) then begin Result := IntToHex(vVolumeSerialNumber, 8); end; end;

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vxrvvfevxfe32e27x3j.html