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

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

CD-ROM [D6, D7, Win95/98, WinME, Win2k, WinXP]

VR ©   (2003-04-05 04:18:00) 

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

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

---

VR   (2003-04-05 15:31:00) [1]

2cyborg: Спасибо!

---

VR   (2003-04-05 15:30:00) [2]

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ов?

---

cyborg   (2003-04-05 15:16:00) [3]

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

---

Deedlit   (2003-04-05 06:13:00) [4]

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

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;

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

---

Наверх