Código
// Para abrir
mciSendString('Set cdaudio door open wait', nil, 0, handle);
// Para fechar
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009