Здравствуйте, SvarogBarg, Вы писали:
SB>Всем доброго времени суток!
SB>На форуме по Delphi на этот вопрос никто не ответил, может быть здесь кто-нибудь знает
SB>Надо определить наличие диска в приводе CD-ROM
SB> if GetDiskFreeSpaceEx(PChar(RootDir),FreeBytesAvailable,TotalBytes,nil) then begin
SB> ShowMessage('FreeBytesAvailable='+IntToStr(FreeBytesAvailable)+#13#10+
SB> 'TotalBytes='+IntToStr(TotalBytes)+#13#10);
SB> end
SB> else begin
SB> ShowMessage(SysErrorMessage(GetLastError));
SB> end
SB>Так вот если в приводе диск с уже записанной информацией то все нормально, отображаются FreeBytesAvailable и TotalBytes.
SB>А вот если диска нет или в приводе ЧИСТАЯ БОЛВАНКА, то GetLastError дает "параметр задан неверно".
SB>Так как же определить есть ли диск в приводе или нет даже если это чистая болванка?
SB>Спасибо.
Попробуй посмотреть тут:
http://msdn2.microsoft.com/en-us/library/ms804559.aspx
http://msdn2.microsoft.com/en-us/library/ms803648.aspx