Otváranie a zatváranie CD mechaniky.

uses mmsystem; 
... 
 
mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //otvori 
 
mciSendstring('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //zatvori