Abrindo seu drive de CD com um clike

[webcheatshack2010 3]

Programa para preguissozos rsrrs.. quem tem preguisa de abaixa para abrir o drive de CD para colocar um CD :p

Bom estou aki para divulgar um programinha um pouquinho util..

 

espero que gostem é o meu primeiro programa feito no delphi7

 

 

vamos direto ao assunto

 

Como crio este programa?

1°Abra seu delphi7

2°em Form1vc adiciona 2 Botões 1 Panel

3°no 1°Botãomude o nome dele para Abrir CD

No 2°botão mude o nome para Fechar CD

4°No panel que vc adcionou de 1 clique nele va em Align Do seu lado esquerdo do Delphi 7 e coloque All Topla sera para aparecera mensagem quando vc clicar em Abrir CD

5°De 2 Cliques no botão Abrir CD

E adicione este codigo

MciSendString('Set CdAudio Door Open Wait', nil , 0 , handle);

Panel1.Caption:='bandeija de CD Aberta!';

No Botão 2 coloque

MciSendString('Set CdAudio Door Closed Wait ', nil , 0 , handle);

Panel1.caption:='Bandeija de CD fechada!';

6°volte em Unit1 la encima em uses do lado de StdCtrls coloque MMSystem

7°de F9 para executar o Programa

8°de CTRL+F9 para compilar depoois salve seu projeto..

Bom pessoal é isso ae

tenho duvidas ainda.. Siga o Video Abaixo

Video

 

Download do meu programa para quem quiser ver.

Download

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Scan

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Creditos

Webcheatshack2010(eu)

Tútorial

Webcheatshack2010(eu)

 

Ajudei?sim?deixa um THANKS ae !

[' Extasy 0]

Bom tuto kra,

eu uso esse comando pra fazer

server de Trojan, + acho

que muita gente ainda não sabia

Vlw por Postar

[DragonBoss 9]

legal... um cara postou um programa com diversas utilizades pra windows, entre elas.. esses codigos de abrir e fexar cd... mas gostei do topico, ta bem organizado e explikado ^^

 

flw, abraços

[webcheatshack2010 3]

Brigadão ae pessoal que bom que gostaram :p

[Hero 8]

O código do button 2 tá errado.

Vcê botou ''SondString''

Seria

''SendString''

[webcheatshack2010 3]

O código do button 2 tá errado.

Vcê botou ''SondString''

Seria

''SendString''[/font]

 

isso escrevi na hora errado Obrigado por me avisa =)

[Haseo 57]

Parabéns pelo tutorial e pelo programa man. Gostei até, mas meu Gabinete fica bem próximo, é bom até fazer uns movimentos para abrir o drive (nas poucas situações que uso), mas está aí para quem não gosta. Abraços.

[webcheatshack2010 3]

Parabéns pelo tutorial e pelo programa man. Gostei até, mas meu Gabinete fica bem próximo, é bom até fazer uns movimentos para abrir o drive (nas poucas situações que uso), mas está aí para quem não gosta. Abraços.[/color]

rsrsrs por isso criei para os preguisossos rsrs

[Mx Raz0r 0]

LOL De qualquer forma você vai ter que abaixar pra colocar o CD ¬¬ !! :confused::confused: Bem simples o programa, vlws :cool:

[webcheatshack2010 3]

LOL De qualquer forma você vai ter que abaixar pra colocar o CD ¬¬ !![/color] :confused::confused: Bem simples o programa, vlws :cool:[/b]

 

kaopkopas sim mais nao vai precisa aperta o botao menos um esforço rsrs

[Mx Raz0r 0]

kaopkopas sim mais nao vai precisa aperta o botao menos um esforço rsrs

[/font][/center]

 

kKkkk com certezaa, as vezes da preguiça ate de aperta o botao ^^, boa iniciativa xD