Работа с CD/DWD дисководом
Я написал мини программу по открытию/закрытию привода CD/DWD дисковода. На форме 2 кнопки открыть/закрыть. Прописал каждой событие : открытие- mciSendString('Set cdaudio door open wait', nil, 0, handle);
закрытие- mciSendString('Set cdaudio door closed wait', nil, 0, handle);
добавил uses MMSystem;
ВСЕ РАБОТАЕТ ДИСКОВОД ОТКРЫВАЕТСЯ И ЗАКРЫВАЕТСЯ, НООО после закрытия при открытии диска на нем не отображаются файлы. При отключении - mciSendString('Set cdaudio door closed wait', nil, 0, handle);
поле физического закрытия дисковода на диске отображаются файлы. Почему так происходит и как это можно исправить? Заранее спасибо за ваши ответы.
|