CD Rom Laufwerke öffnen?

[Chris P]

Delphi-Quellcode:

procedure TForm1.OpenCDDrive();
begin
   MCISendString('Set CDAudio Door Open Wait', nil, 0, Handle);
end;

procedure TForm1.CloseCDDrive();
begin
   MCISendString('Set CDAudio Door Closed Wait', nil, 0, Handle);
end;

Mit diesen Prozeduren lassen sich die CD Rom Laufwerke öffnen. Aber immer nur das Erste. Wie kann ich das Zweite öffnen?

Danke schon mal...