Criando uma aplicação para abrir Drive de CD/DVD

Olá galera, nesse tópico eu irei lhe ensinar a como abrir ou fechar o drive de cd/dvd do seu computador.
Para começar, adicione os seguintes itens em seu Form:

2 Button

Agora mude o seu Caption do Button1 para "Abrir CD" e o Button2 mude o seu Caption para "Fechar CD"

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Dê um clique duplo no Form e suba até o topo e Procure a classe Uses ela deverá estar mais ou menos assim :

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Adicione nela :

MMSystem


Ficará assim :
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

De um Duplo clique no Botao "Abrir CD" e cole o seguinte código:

Código:

mciSendString('Set cdaudio door open wait', nil, 0, handle);
Showmessage('Gaveta de CD Aberta Com Sucesso');

Agora Volte ao Form e de um Duplo clique no Botao "Fechar CD" e coloque:

Código:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Showmessage('Gaveta de CD Fechada Com Sucesso');

Agora Presione "F9" e Veja como Ficou sua Applicação.


[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Tutorial 100% feito por mim, caso for copiaar, deixe os créditos!