如何获取磁盘分区信息

如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小)
{   
    文章名   : 如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小)
    说明     : 无
    作者     : JJony
    QQ       : 254706028
    博客     : http://blog.csdn.net/jzj_jony
    空间     : http://jonychen,ys168.com
    测试环境 : WinXPSP2+Delphi7
    声明     : 您可以任意转载，但请注明文章作者和出处
}

最近看到有人在问"如何知道分区剩余空间大小"，看看也没人回答或者回答的不太准确，
闲来无事就写了个小程序，当然获得的信息更全面一点，下面就是我的函数源代码：
//其中VolumeName,VolumeSerialNumber,PartitionType,TotalSpace,TotalFreeSpace为
//返回参数，包括分区的各种信息
Function GetHardDiskPartitionInfo(const DriveLetter:Char;
                                  var VolumeName,VolumeSerialNumber,PartitionType:string;
                                  var TotalSpace,TotalFreeSpace:string): string;
var
  NotUsed: DWORD;
  VolumeFlags: DWORD;
  VolumeInfo: array[0..MAX_PATH] of Char;
  VSNumber: DWORD;
  PType: array[0..32] of Char;
  VName:array[0..32] of Char;
  FreeS,TotalS:Int64;
  TotalF:Int64;
begin
  if not GetVolumeInformation(PChar(DriveLetter + ':\'),