CD open close/de

uses
  MMSystem, ...;
  
  ...
  
procedure subCDAufZu(chrDriveChar: char; blnOeffnen: boolean);
begin
  if mciSendString(PChar('open ' + chrDriveChar + ': type cdaudio alias cdlw'),
    nil, 0, 0) = 0 then
  begin
    if blnOeffnen = True then
      mciSendString('set cdlw door open wait', nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', nil, 0, 0);
    mciSendString('close cdlw', nil, 0, 0);
  end;
end;
  
  ...