[Алхимик]

Пожалуйста помогите хочу написать програму на делфи 7 для тово чтобы после запуска дисковод закрывальса и открывальса.
Не после нажатия клавиш а сразу после запуска дисковод туда сюда "Ездил"
Скажите как ето сделать может есть статья?

[M.A.D.M.A.N.]

Подобные приколы уже прошлый век, ну раз хочется, то пожалуйста.
Для открытия CD-ROM:

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

Для закрытия CD-ROM:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

P.S. Не забываем про гугл.