Delphi: открытие cd-rom

Как управлять лотком CD-ROMа? Хотя бы где прочитать про это... Help !!!

[RaZEr]

Открыть:

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

Закрыть:

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

PS: В uses добавишь MMSystem.

Блин, как просто... Век живи, век учись, дураком помрёшь...
А всё таки, где почитать поподробнее, может есть ссылочка на к-л литературу?

...а можно к-н исправить название темы DELPHY на правильное DELPHI - а то как-то стыдно...

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

А как быть в консольном: на handle ругается - "не определена ", сделал так:
var
handle: word;
...
работает, а если вообще указать 0, или nil ?
В Хелпе сказано:
hwndCallback
Handle of a callback window if the "notify" flag was specified in the command string.

А у меня флаг WAIT.
Плохо что-то делать на одной интуиции...