Tecnobyte Informática

WhatsApp

(69) 3421-6756

(69) 3421-6757

Enviar

mensagem

Facebook

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Dica sobre Delphi - Multimídia

Como abrir e fechar o drive de CD-ROM via programação?

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);