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

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: Спасибо!

---

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

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



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