Open / close cd-Laufwerk

Open / close cd-Laufwerk

Open / close cd-Laufwerk : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das Öffnen / Schließen des CD-Fachs in Delphi.
MMSystem verwendet;
Prozedur TForm1.OpenCdTray(AOpen:Boolean);
const
DoPlay: array [Boolean] of String =
('Set Cdaudio geschlossener Tür warten',
'Set Cdaudio Tür offen warten');
var
MyError: LongInt;
MyErrorString: Array [0..MAXERRORLENGTH - 1] char;
beginnen
MyError: = mciSendString(pChar(DoPlay[AOpen]), Nil, 0, 0);
Wenn MyError <> 0 dann
beginnen
MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1);
ShowMessage(MyErrorString);
Ausfahrt;
Ende;
Ende;