1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  MCISendString('Set cdaudio door open wait', Nil, 0, Application.Handle);
End;


{* CD-Laufwerk schliessen *}

Procedure TForm1.Button2Click(Sender: TObject);
Begin
  MCISendString('Set cdaudio door closed wait', Nil, 0, Application.Handle);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString('open N: type cdAudio alias CD1', nil, 0, 0);
  mciSendString('set CD1 door open', nil, 0, 0);
  mciSendString('close CD1', nil, 0, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  mciSendString('open N: type cdAudio alias CD1', nil, 0, 0);
  mciSendString('set CD1 door closed', nil, 0, 0);
  mciSendString('close CD1', nil, 0, 0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.Button3Click(Sender: TObject);
type
  TLaufwerkstyp = (dtUnknown, dtNoDrive, dtFloppy, dtFixed, dtNetwork, dtCDROM,
    dtRAM);
var
  Laufwerkstyp  : TLaufwerkstyp;
  Laufwerk      : string;
  Schleife      : integer;
begin
  for Schleife := 65 to 65 + 25 do
    begin
      Laufwerk := Chr(Schleife) + ':';
      Laufwerkstyp := TLaufwerkstyp(GetDriveType(PChar(Laufwerk)));
      case Laufwerkstyp of
        dtFloppy:  Memo1.Lines.Add(Laufwerk + ' = Wechseldatenträger (Floppy und Co.)');
        dtFixed:   Memo1.Lines.Add(Laufwerk + ' = Festplattenpartition');
        dtNetwork: Memo1.Lines.Add(Laufwerk + ' = Netzwerklaufwerk');
        dtCDROM:   Memo1.Lines.Add(Laufwerk + ' = CD-Laufwerk');
        dtRAM:     Memo1.Lines.Add(Laufwerk + ' = RAM-Laufwerk');
        dtUnknown: Memo1.Lines.Add(Laufwerk + ' = unbekanntes Laufwerk');
      else
        Memo1.Lines.Add(Laufwerk + ' = nicht vorhanden.');
      end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

{* CD-Laufwerk öffnen *}

Procedure TForm1.Button1Click(Sender: TObject);
Var LW: Char;
Begin
  LW := ComboBox1.Text[1];
  mciSendString('open ' + LW + ': type cdAudio alias CD1', nil, 0, 0); {64}
  mciSendString('set CD1 door open', nil, 0, 0);
  mciSendString('close CD1', nil, 0, 0);

End;					

1:
2:
3:
4:
5:
6:
7:
8:

Procedure TForm1.Button1Click(Sender: TObject);
Var LW: Char;
Begin
  LW := ComboBox1.Text[1];
  mciSendString(PWideChar('open ' + LW + ': type cdAudio alias CD1'), nil, 0, 0); {64}
  mciSendString('set CD1 door open', nil, 0, 0);
  mciSendString('close CD1', nil, 0, 0);
End;