delphi中如何获得硬盘序列号

var SerialNum:   DWord; A,   B:   DWord; VolumeSerialNumber:   string   ; Key:   string   ; begin Key:= ' '; if   GetVolumeInformation(PChar( 'C:\ '), Nil,   0,   @SerialNum,   A,   B,   Nil,   0)   then VolumeSerialNumber   :=   IntToHex(HiWord(SerialNum),   4)   + IntToHex(LoWord(SerialNum),   4); Key   :=   VolumeSerialNumber   ; Label1.Caption   :=   Key   ; end; 

特此感谢：http://topic.csdn.net/t/20030304/12/1489377.html