| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать метку тома какого-либо диска? [D6, Win95/98]

krammer ©   (2002-12-01 19:32:00) 

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

---

Oleg_Gashev   (2002-12-02 02:26:00) [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;

---

Наверх