CD Laufwerköffnen.

[Seppel]

Hab ma ein bisschen rum gesurft und bin bei http://www.dsdt.inf daraufgestoßen, wie man ein Laufwekr(CD/DVD) öffnen kann.
Das wollte ich auch machen, alles geht soweil nur ich will, dass man in einem editfeld seinen Laufwerkbuchstaben angibt, das geht leider net.
Combobox könnte man auch machen, aber das geht auch net.

Hier die Procedure:

Delphi-Quellcode:

procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);
begin
  if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),
                   Nil,
                   0,
                   0) = 0 then
  begin
    if Open 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;

Also dort kann man einstellen, welches Laufwerk sich öffnen soll, aber nicht, dass es den Laufwerkbuchstaben aus einem Editfeld bezieghen soll:

Delphi-Quellcode:

//Das öffnet das Laufwerk G.
OpenCDDrive('G', true);
OpenCDDrive(edit1.Text, true); //Das geht leider nicht, wie muss ich den Code, bzw. die Procedure ändern damit es geht?