como abrir gaveta de cd/dvd (delphi7)

---

add: 2 buttons
add: 1 xpmanifest
organize assim...

mude o caption do form para (Teste), Button1 para (Abrir), Button2 para (Fechar).
dê 2 cliques no button1(abrir) e digite isso...

  Agora o button2 (fechar), digita isso...

Para não dar algum erro temos que declarar na (uses)... então deixa a uses assim.

a (uses) ja tem algumas declaracões como (windows, xpman, variants) e etc.
nos só fizemos colocar mais um que foi o (MMSystem).
agora é só compilar, salvar e testar...