CD-ROM

← →
VR (2003-04-05 04:18) [0]

Помогите, пожалуйста, разобраться с такой проблемой: необходимо, чтобы программа, написанная на Delphi распозновала все приводы CD-ROM, которые есть на компьютере и затем определяла серийный номер диска, который стоит в одном из этих приводов! В крайнем слачае можно чтобы программа определяла не серийник диска, а его метку!

Заранее благодарен!
bsk2000@mail.ru

← →
Deedlit (2003-04-05 06:13) [1]

Для начала попробуй так:

var
Drives: set of 0..25;
Drv: Char;
i: integer;
begin
Integer(Drives):=GetLogicalDrives;
For i := 0 to 25 do
If (i in Drives) then begin
Drv:=Char(i + Ord("A"));
//тип девайса узнаем по GetDriveType
end;
end;

Вроде, работает. ;)

← →
cyborg (2003-04-05 15:16) [2]

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

← →
VR (2003-04-05 15:30) [3]

2Deedlit:

Я сдел всё так, как ты написал:
var drives: set of 0..25; drv: char; i: integer; begin integer(drives) := GetLogicalDrives; for i := 0 to 25 do If (i in Drives) then begin Drv := Char(i + Ord("A")); combobox1.Items.Add(drv); end; end;

как теперь сделать, чтобы в Combobox1 были не имена всех дисков, а имена только CD-ROMов?

← →
VR (2003-04-05 15:31) [4]

2cyborg: Спасибо!

CD-ROM Найти похожие ветки