ferngesteuerter CD-Brenner

[Le Tuan Nguyen]

Hallo aller Profile,
wer kann mir sagen, wie kann ich einen CD-Brenner Laufwerk zum Öffnen bzw. Schließen fernsteuern. (z.B. mit dem Button im Delphi)
Ich danke im Voraus
Nguyen

[Tim Henford]

Hallo,

meinst du diese Funktion:

<pre>
auf:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
zu:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
</pre>

Tschüss Ti

[Le Tuan Nguyen]

Hallo Tim,
Vielen Dank für deine Hilfe, aber habe ich Frage, welche Laufwerk gesteuert wird, wenn ich CD-Rom und CD-Brenner habe

[Tim Henford]

Hallo,

ohh, dass ist eine gute Frage, vielleicht hilft dir das etwas weiter:

<pre>
Procedure CloseDoor(Driveletter:Char);
Var
Alias : String;
Begin
Alias:='Drive'+DriveLetter;
mciSendString(pChar('Open '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
mciSendString(pChar('Set '+Alias+' Door Closed'), nil, 0, 0);
mciSendString(pChar('Close '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
End;

Procedure OpenDoor(Driveletter:Char);
Var
Alias : String;
Begin
Alias:='Drive'+DriveLetter;
mciSendString(pChar('Open '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
mciSendString(pChar('Set '+Alias+' Door Open'), nil, 0, 0);
mciSendString(pChar('Close '+DriveLetter+': Alias ' +Alias+' Type CDAudio'), nil, 0, 0);
End;
</pre>

Tschüss Ti