Ist CD audio?

Ist CD audio?

Ist CD audio? : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das bestimmen, ob die eingelegten CD, eine audio-CD ist oder nicht.
Prozedur TForm1.Button1Click(Sender: TObject);
var
MyDeviceID: MCIDEVICEID;
MyOpenParams: TMCI_OPEN_PARMS;
MyStatusParams: TMCI_STATUS_PARMS;
MyError: LongInt;
MyErrorString: Array [0..MAXERRORLENGTH - 1] char;
TmpStr: String;
beginnen
MyOpenParams.lpstrDeviceType: = 'Cdaudio';
MyError: = MciSendCommand (0, MCI_OPEN, MCI_OPEN_TYPE,
longint(@MyOpenParams)) aus;
Wenn MyError <> 0 dann
beginnen
MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1);
ShowMessage(MyErrorString);
Ausfahrt;
Ende;
MyDeviceID: = mciGetDeviceID('cdaudio');
MyStatusParams.dwItem: = MCI_CDA_STATUS_TYPE_TRACK;
MyStatusParams.dwTrack: = 1;
MyError: = MciSendCommand (MyDeviceID,
MCI_STATUS,

MCI_TRACK oder
MCI_STATUS_ITEM,
Longint(@MyStatusParams)) aus;
RS MyStatusParams.dwReturn der
MCI_CDA_TRACK_AUDIO: TmpStr: = 'CDROM ist AUDIO';
MCI_CDA_TRACK_OTHER: TmpStr: = 'CD-Rom ist nicht AUDIO';
Ende;
ShowMessage(tmpStr);
Wenn MyError <> 0 dann
beginnen
MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1);
ShowMessage(MyErrorString);
Ende;
MyError: = MciSendCommand (MyDeviceID, MCI_CLOSE, 0, 0);
Wenn MyError <> 0 dann
beginnen
MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1);
ShowMessage(MyErrorString);
Ende;
Ende;