Как найти все 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", а вначале получить список всех имеющихся дисков?

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

***

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