再加40分,帮忙看看怎么获取磁盘序列号无反应 (40分)

再加40分,帮忙看看怎么获取磁盘序列号无反应
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2324394

是不是所有机子都有C盘? 如果都有, 以上函数是否可简化!

有些SCSI硬盘的序列号是不能用获取IDE硬盘序列号的方法来得到的。

普通机子应该是都有C盘的，无盘工作站就不一定有了

function get_C_VolumeSerialNumber:string;
var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
SerialNumber: string;
begin
GetVolumeInformation(pansichar('c:'), nil, 0, @VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags, nil, 0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
Result := SerialNumber;
end;

最后一个问题:
如果c盘是SCSI硬盘,用chenshaiz函数会是什么结果,也就是
disk:='c:';
Panel5.Caption:=getVolumeSerialNumber(disk);会显示什么?