Советы по Delphi


              

Открытие и закрытие привода CD-ROM


Есть ли Win32 API функция, позволяющая не только открыть НО И ЗАКРЫТЬ CD-ROM? Хотелось бы не тянуться ручками к РС, а нажать мышкой на кнопку. Компонентом TMediaPlayer пользоваться не хочу, тем более компакт он может только извлечь...

Для закрытия CD-ROM:

    mciSendString('Set cdaudio door open wait', nil, 0, handle);

Для открытия CD-ROM:

    mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Не забудьте включить MMSystem в список используемых модулей (uses).

[000038]

Содержание    Вперед