// Abre a porta do CDROM
   mciSendString( 'Set cdaudio door open wait', nil, 0, handle );

   // Fecha a porta do CDROM
   mciSendString( 'Set cdaudio door closed wait', nil, 0, handle );

Inclua na Uses a unit mmSystem.
 
[]´s camoloze

   _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Paulo Sergio de Moraes Junior
Enviada em: quarta-feira, 29 de março de 2006 08:53
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ABRIR CD ROM / FECHAR CD ROM


Pessoal Gostaria de saber se alguém tem o código para
abrir e fechar o cd rom com apenas 1 clique no button

Obrigado

Paulo Moraes


[As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

"http://br.groups.yahoo.com/group/delphi-br/messages"http://br.groups.yahoo.
com/group/delphi-br/messages





   _____  

Links do Yahoo! Grupos


*       Para visitar o site do seu grupo na web, acesse:
HYPERLINK
"http://br.groups.yahoo.com/group/delphi-br/"http://br.groups.yahoo.com/grou
p/delphi-br/
  

*       Para sair deste grupo, envie um e-mail para:
HYPERLINK
"mailto:[EMAIL PROTECTED]"delphi-
[EMAIL PROTECTED]
  

*       O uso que você faz do Yahoo! Grupos está sujeito aos HYPERLINK
"http://br.yahoo.com/info/utos.html"Termos do Serviço do Yahoo!. 



--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.2/294 - Release Date: 27/03/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.2/294 - Release Date: 27/03/2006
 


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a