Скачать: CL | DM;

Вопрос по CD   Найти похожие ветки 

← →
Novenkij ©   (2003-08-18 22:31) [0]

При помощи кода ниже можно узнать, сколько и какие устройства являются 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.

---

← →
Ученик ©   (2003-08-18 22:57) [1]

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;

---

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

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

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

---

← →
Ray Adams ©   (2003-08-19 00:10) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c