Befehl für : öffne CDROM-Laufwerk

[Schleicher]

Hallo!
Auf ein Clickon-ereignis soll sich mein CDROM Laufwerk öffnen. Manchmal ändert sich aber der Buchstabe für das CDROM Laufwerk . Wie kann ich das programmieren?
Danke
Juliu

[Bernhard Berger]

Quellcode:
<p><pre>
uses MmSystem;

procedure OpenCdDrive;
var
mci: TMCI_Open_Parms;
mciResult: MCIERROR;
begin
FillChar(mci, SizeOf(mci), #0); // Clear MCI-Open-Structure
mci.lpstrDeviceType := 'cdaudio';

// Open Audio-CD device...
mciResult := mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE, Cardinal(@mci));
if mciResult <> 0 then
raise EJclMciError.Create(RsMmNoCdAudio, mciResult);

// Open the disc drive...
mciSendCommand(mci.wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0)

mciSendCommand(mci.wDeviceID, MCI_CLOSE, 0, 0); // Close device
end;
</pre></p>
Der Programm-Code sucht automatisch das richtige Cd-Rom-Laufwerk aus.<p>
Gruß,<br>
Bernhar

[RobertM]

Hallo!

Funktioniert dieser Quellcode nur für Musik, da MMSystem?!
Kürzer wäre aber dann doch z.B.:

MediaPlayer1.Eject;

Oder findet er damit nicht das Richtige CD-ROM?

MfG
Robert Maye

[Bernhard Berger]

Die Routine funktioniert für alle CDs. Die "Mediaplayer.Eject"-Methode benutzt genauso die mciSendCommands, wie du im Quellcode nachschauen kannst. Obige Routine ist ein wenig resourcensparender, wenn aber sowieso der Mediaplayer verwendet wird, ist deine Lösung wahrscheinlich einfacher