Ouvrir/fermer le lecteur de CD

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject); //Öffnen - Open
begin
mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle);
end;


procedure TForm1.Button2Click(Sender: TObject); //Schliessen - Close
begin
mciSendstring('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle);
end;