Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c