Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 19
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
0 / 1000 / 100

RodrigoNunes

Admin

Admin

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"

[Você precisa estar registrado e conectado para ver 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 :

[Você precisa estar registrado e conectado para ver esta imagem.]

Adicione nela :

MMSystem


Ficará assim :
[Você precisa estar registrado e conectado para ver 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.


[Você precisa estar registrado e conectado para ver esta imagem.]

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




[Você precisa estar registrado e conectado para ver esta imagem.]
O Administrador ℛodrigoNunes sugere:
- Respeite as [Você precisa estar registrado e conectado para ver este link.]
- Participe das nossas [Você precisa estar registrado e conectado para ver este link.]
- Veja a nosso [Você precisa estar registrado e conectado para ver este link.]
- Não peça suporte por MP


Try
Topic.Resolve;
Finally
Topic.Caption := Topic.Caption + '[RESOLVIDO]';
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário https://www.facebook.com/DarkGamesBrasil formatacaodemicros@hotmail.com.br naotenho esqueci

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum