Вопрос по 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]

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

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