怎么通过编程获得硬盘的分区名

如何通过编程获得硬盘的分区名
不知道我问题的表达对不对...

Delphi下如何获得硬盘分区的名称...

比如下面这些：
      系统盘   （C:）
      下载   (D:)
      本地磁盘   (E:)

[解决办法]
这些是分区的卷标(Volume), 可以用API函数GetVolumeInformation来获得, 例如:
procedure TForm1.Button1Click(Sender: TObject);
var
sRootPathName : String;
sVolumeName : String;
dwVolumeSerianNumber : DWORD;
dwMaximumComponentLength: DWORD;
dwFileSystemFlags : DWORD;
sFileSystemName : String;
begin
SetLength(sVolumeName, 255);
SetLength(sFileSystemName, 255);
sRootPathName := 'C:\ ';
GetVolumeInformation(PChar(sRootPathName), PChar(sVolumeName), 255, @dwVolumeSerianNumber,
dwMaximumComponentLength, dwFileSystemFlags, PChar(sFileSystemName), 255);
sVolumeName := String(PChar(sVolumeName));
sFileSystemName := String(PChar(sFileSystemName));
ShowMessage (Format( 'The volume name of %s is %s, the file system name of %s is %s ',
[sRootPathName, sVolumeName, sRootPathName, sFileSystemName]));
end;