硬盘的serial，DOS下的label则显示volume serial number is 5AD0-F1AD，那么delphi下该如何取得硬盘的序列号呢？

不知道你说的是不是用DELPHI取得磁盘系列号？
如是的话请参考下面一段代码：取得C盘的系列号：
在窗体上加上一个BUTTON和一个MEMO
在BUTTON的ONCLICK中：
先声明变量
var 
   volumeSerialNumber:DWORD;
   MaximumComponentLength:DWORD;
   FileSystemFlags:DWORD;
   SerialNumber:String;
begin
   GetVolumeInformation('c:\',nil,0,
                         @volumeSerialNumber,
                         MaximumComponentLength,
                         FileSystemFlags,nil,0);
  serialNumber:=IntToHex(HiWord(VolumeSerialNumber),4)+'-'+IntToHex(LoWord(volumeSerialNumber),4);
memo1.lines.add(SerialNumber);
end;