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

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

Как нйти метку диска?

Сигизмунд ©   (2004-10-30 11:44:00) 

Мне надо найти метку CD диска который вставлен в привод. Например
Resident Evil (E:)
Подскажите как это сделать.

---

abc   (2004-10-30 16:14:00) [1]

http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10139

---

Сигизмунд   (2004-10-30 11:57:00) [2]

ssk Большое спасибо.

---

ssk   (2004-10-30 11:50:00) [3]

function GetVolumeInfo(D: Char): string;
var
 VolumeName,
 FileSystemName : array [0..MAX_PATH-1] of Char;
 VolumeSerialNo     : DWord;
 MaxComponentLength, FileSystemFlags : Cardinal;
begin
 GetVolumeInformation(PAnsiChar(D + ':\'), VolumeName, MAX_PATH,
                      @VolumeSerialNo, MaxComponentLength, FileSystemFlags,
                      FileSystemName, MAX_PATH);
 Result:=VolumeName;
end;

---

Наверх