Всем доброго времени суток!
На форуме по Delphi на этот вопрос никто не ответил, может быть здесь кто-нибудь знает

Надо определить наличие диска в приводе CD-ROM

if GetDiskFreeSpaceEx(PChar(RootDir),FreeBytesAvailable,TotalBytes,nil) then begin
ShowMessage('FreeBytesAvailable='+IntToStr(FreeBytesAvailable)+#13#10+
'TotalBytes='+IntToStr(TotalBytes)+#13#10);
end
else begin
ShowMessage(SysErrorMessage(GetLastError));
end



Так вот если в приводе диск с уже записанной информацией то все нормально, отображаются FreeBytesAvailable и TotalBytes.
А вот если диска нет или в приводе ЧИСТАЯ БОЛВАНКА, то GetLastError дает "параметр задан неверно".

Так как же определить есть ли диск в приводе или нет даже если это чистая болванка?

Спасибо.