这是一个获得硬盘序列号的函数,我怎么获得它的值?showmessage(GetHardDiskSerial)出错..

Question

这是一个获得硬盘序列号的函数,我怎么获得它的值?showmessage(GetHardDiskSerial)出错..
showmessage(GetHardDiskSerial)
function GetHardDiskSerial(const DriveLetter: Char): string; 
var 
  NotUsed:     DWORD; 
  VolumeFlags: DWORD; 
  VolumeInfo:  array[0..MAX_PATH] of Char; 
  VolumeSerialNumber: DWORD; 
begin 
  GetVolumeInformation(PChar(DriveLetter + ':\'), 
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, 
    VolumeFlags, nil, 0); 
  Result := Format('Label = %s   VolSer = %8.8X', 
    [VolumeInfo, VolumeSerialNumber]) 
end; 

Answer 1

这个只是获取分区的序列号，不是硬盘的物理序列号
ShowMessage(GetHardDiskSerial('C:');