//声明:
SetVolumeLabel(
lpRootPathName: PChar; {根路径}
lpVolumeName: PChar {新卷标指针, nil 表示删除卷标}
): BOOL;
--------------------------------------------------------------------------------

//举例:
begin
SetVolumeLabel('c:\', 'NewLabel');
end;