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...

[fkerber]

Hi!

Wenn ich mich nicht sehr irre (was aber durchaus sein kann), wird damit das CD-Laufwerk ausgeworfen, dass zu Audio-Wiedergabe konfiguriert ist. Egal aob 1. oder 2.

Stell das doch mal bei dir um und test dann mal.


Ciao fkerber

[celinaw]

Guckst du hier.

Gruß CelinaW

[Chris P]

Das ist gut!

Danke...