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


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