Как узнать метку тома какого-либо диска?

← →
krammer (2002-12-01 19:32) [0]

Нужно узнать метку тома компакт-диска (Label, по-английски).
С функцией GetVolumeInformation не разобрался. Если дело в ней, то подскажите, пожалуйста, как эту функцию использовать?

← →
Oleg_Gashev © (2002-12-02 02:26) [1]

function GetVolumeSerial:string;
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);
result:=SerialNumber;
end;

Как узнать метку тома какого-либо диска? Найти похожие ветки