quarta-feira, 4 de novembro de 2009

Abrir e fechar o drive de cd-rom

Inclua na seção uses: MMSystem

{ Para abrir }
mciSendString('Set cdaudio door open wait', nil, 0, handle);

{ Para fechar }
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Nenhum comentário:

Postar um comentário