[Winny]

А у меня код меньше
Открыть CD-ROM:

Код:

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

Закрыть CD-ROM:

Код:

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