Início
![[Soucer Codigo] Abrir CD ROOM Empty](https://2img.net/i/empty.gif)
por Adicione:
2 Button
Em Text
Button 1 para Abrir
Button 2 para Fechar
De 1 clique no Button 1 e adicione esse codigo:
Código:
Depois Adicione esse codigo no Button 2:
Código:
Scan
2 Button
Em Text
Button 1 para Abrir
Button 2 para Fechar
De 1 clique no Button 1 e adicione esse codigo:
Código:
- Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;
Depois Adicione esse codigo no Button 2:
Código:
- Código:
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
end.
Scan
- Anexos
![[Soucer Codigo] Abrir CD ROOM Attachment](https://2img.net/i/fa/attachment.png)
Abridor de CD-ROOM.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (6.1 Mb) Baixado 0 vez(es)
![[Soucer Codigo] Abrir CD ROOM I_vote_lcap](https://2img.net/s/t/17/08/32/i_vote_lcap.png){kind=small}
![[Soucer Codigo] Abrir CD ROOM I_voting_bar](https://2img.net/s/t/17/08/32/i_voting_bar.png){kind=small}
![[Soucer Codigo] Abrir CD ROOM I_vote_rcap](https://2img.net/s/t/17/08/32/i_vote_rcap.png){kind=small}