Как определить есть ли в приводе диск???

← →
Zloy SHREK (2005-01-27 23:26) [0]

Никак не могу правильно определить есть ли в приводе диск или нет, ну точнее могу, но коряво. Я пытаюсь найти по адресу привода (например H:\ ) хотябы один файл или папку. Но проблема в том что если диска в приводе нет - возникает ошибка "Вставьте диск.".
Как грамотно определить есть в приводе диск или нет?

← →
Просто Джо © (2005-01-28 00:00) [1]

Не претендуя быть шибко грамотным предлагаю использовать
GetVolumeInformation

← →
Просто Джо © (2005-01-28 00:03) [2]

Или, например, GetDriveType

← →
Просто Джо © (2005-01-28 00:07) [3]

Нет, GetDriveType снимается.
Остается GetVolumeInformation

← →
GanibalLector © (2005-01-28 00:34) [4]

Ну да,можно.Так вроде :
var MaximumComponentLength,FileSystemFlags:DWord; begin SetErrorMode(SEM_FAILCRITICALERRORS); if GetVolumeInformation(Pchar("A:\"),nil,0, nil,MaximumComponentLength,FileSystemFlags,nil,0)=true then messagedlg("Что-то есть",mtinformation,[mbok],0) else messagedlg("Путо",mtinformation,[mbok],0)

Только вот не знаю,что будет если засунуть неотформ.дискету.

← →
GanibalLector © (2005-01-28 00:36) [5]

2 GanibalLector © (28.01.05 00:34) [4]
>Только вот не знаю,что будет если засунуть неотформ.дискету
Хотя,можно использовать GetDiskFreeSpaceEx и узнать кол-во секторов и прочего.

← →
Zloy SHREK (2005-01-28 02:02) [7]

ВСЕМ БОЛЬШОЕ СПАСИБО!!!

УРА!!! ЗАРАБОТАЛО!!!

2 Zloy SHREK (28.01.05 02:02) [7]
Ты сильно не радуйся,ибо A:\ может и не быть!Или быть,но с другой буквой...вариаций ОЧЕНЬ много.
Поэтому,сперва используем GetDriveType и сравниваем с DRIVE_REMOVABLE.Если оно,то GetVolumeInformation.И в самом конце,узнаешь кол-во секторов и прочего(ибо диске может быть неотформ.или вообще не рабочая).

Как определить есть ли в приводе диск??? Найти похожие ветки