Abrir CD/DVD via comando!

Vamos criar a aplicação onde abrimos e fechamos o drive de CD/DVD.

Monte o form como na imagem abaixo:

Vamos aos códigos botão abrir:

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Botão Fechar:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Não esqueça de colocar a biblioteca MMSystem no uses como abaixo:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MMSystem, StdCtrls;

Salve e execute.