uses mmsystem; 
 
function CDFach(lw: char; wie: boolean): boolean; 
var 
  f: integer; 
  s: string; 
begin 
  if wie = true then s := 'open' else s := 'closed'; 
  MCISendString(pchar('open ' + lw + ': type cdaudio alias geraet'),
    nil, 0, 0); 
  f := MCISendString(pchar('set geraet door ' + s + ' wait'), nil, 0, 0); 
  MCISendString('close geraet', nil, 0, 0); 
  result := f = 0; 
end; 
 
// -- Beispielaufrufe -- 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not CDFach('F', true) then showmessage('Fehler beim Öffnen'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if not CDFach('F', false) then showmessage('Fehler beim Schließen'); 
end;