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

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

Вопрос по CD [D6, WinXP]

Novenkij ©   (2003-08-18 22:31:00) 

При помощи кода ниже можно узнать, сколько и какие устройства являются CD Rom.
case GetDriveType(Pchar(s)) of
DRIVE_CDROM: memo1.lines.add(chr(i)+": CD-ROM");
end;
end;

На моем компе два CD Rom-а физических и один виртуальный, после выполнения кода я получаю F: CD-ROM
G: CD-ROM
H: CD-ROM
Как узнать какой из них виртуальный ???

P.S. Надеюсь я все объяснил доходчиво. Всем спасибо. С уважением Novichok.

---

Ray Adams   (2003-08-19 00:10:00) [1]

Ну виртуалки и создаются для того чтобы вся система думала чтоб это настоящий СиДи. Так что только по названию сидюка можно понять

---

Novenkij   (2003-08-19 00:07:00) [2]

Что-то не так. После выполнения выдает:
F: \Device\CdRom1
G: \Device\CdRom0
H: \Device\CdRom2 (У меня на компе этот виртуальный !)

Вопрос остается открытым

---

Ученик   (2003-08-18 22:57:00) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
szTargetPath: array[0..MAX_PATH] of Char;
begin
if QueryDosDevice("F:", szTargetPath, MAX_PATH) > 0 then
ShowMessage(StrPas(szTargetPath))
end;

---

Наверх