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

Как найти все CD приводы?   Найти похожие ветки 

← →
Anthony ©   (2005-02-08 19:41) [0]

Уважаемые мастера! Не подскажите как найти имена дисков всех CD приводов (cd-rom, cd-rw и т.д.)

---

← →
begin...end ©   (2005-02-08 19:47) [1]

> Anthony ©   (08.02.05 19:41)

Воспользуйтесь функцией GetDriveType.

var
 Ch: Char;
 List: String;
begin
 for Ch := "A" to "Z" do
   if GetDriveType(PChar(Ch + ":\")) = DRIVE_CDROM then
     List := List + Ch;
 Caption := List
end.

---

← →
Anthony ©   (2005-02-08 19:50) [2]

Спасибо, а если на компе DVD есть (я спрашиваю, потому что у меня его (DVD) нет) он тоже высветиться?

---

← →
dimaxx ©   (2005-02-08 20:06) [3]

Как он может высветиться, если его нет?

---

← →
Anthony ©   (2005-02-08 20:07) [4]

Ну если бы он был, то он тоже будет высвечиваться - вот в чем вопрос

---

← →
GanibalLector ©   (2005-02-08 20:54) [5]

> он тоже высветиться?
Да!И даже если у тебя виртуальный CD,то тоже высветиться

---

← →
Poirot ©   (2005-02-09 13:27) [6]

begin...end ©   (08.02.05 19:47) [1]
Всё немного интереснее можно сделать...

GetDriveType - Determines whether a disk drive is a removable, fixed, CD-ROM, RAM disk, or network drive.

GetLogicalDrives - Returns a bitmask representing the currently available disk drives.

GetLogicalDriveStrings - Fills a buffer with strings that specify valid drives in the system.

---

← →
begin...end ©   (2005-02-09 13:32) [7]

> Poirot ©   (09.02.05 13:27) [6]

Э-э-э... Не совсем понял... Вы имеете в виду, что можно не тупо проверять всё от "A" до "Z", а вначале получить список всех имеющихся дисков?

---

← →
Poirot ©   (2005-02-09 13:36) [8]

begin...end ©   (09.02.05 13:32) [7]
Да, это ИМХО это лучше. потомучто дисков-то может быть мало, а перебирать 26 букв.

---

← →
begin...end ©   (2005-02-09 13:40) [9]

> Poirot ©   (09.02.05 13:36) [8]

Да, можно и так, конечно. Наверное, так будет правильнее. Спасибо.

---

← →
UserName0001   (2005-02-10 15:31) [10]

***

---

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

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



Память: 0.47 MB
Время: 0.025 c