Текущий архив: 2005.03.20;
Скачать: 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 вся ветка
Текущий архив: 2005.03.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
