Denne artikkelen viser hvordan du finner ut om CD settes inn er en lyd-CD eller not.procedure TForm1.Button1Click (Sender: TObject); Var MyDeviceID: MCIDEVICEID; MyOpenParams: TMCI_OPEN_PARMS; MyStatusParams: TMCI_STATUS_PARMS; MyError: LongInt; MyErrorString: array [0..MAXERRORLENGTH - 1] av Char; tmpStr: String, begynner MyOpenParams.lpstrDeviceType: = 'cdaudio'; MyError: = mciSendCommand (0, MCI_OPEN, MCI_OPEN_TYPE, longint (MyOpenParams)); hvis MyError < > 0 da begynne MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1); Showmessage (MyErrorString); Gå; slutt; MyDeviceID: = mciGetDeviceID ( 'cdaudio'); MyStatusParams.dwItem: = MCI_CDA_STATUS_TYPE_TRACK; MyStatusParams.dwTrack: = 1; MyError: = mciSendCommand (MyDeviceID, MCI_STATUS, MCI_TRACK eller MCI_STATUS_ITEM, Longint (MyStatusParams)); Ved MyStatusParams.dwReturn av MCI_CDA_TRACK_AUDIO: tmpStr: = 'CDROM ER AUDIO'; MCI_CDA_TRACK_OTHER: tmpStr: = 'CDROM ER IKKE LYD'; slutt; ShowMessage (tmpStr); hvis MyError < > 0 da begynne MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1); Showmessage (MyErrorString); slutt; MyError: = mciSendCommand (MyDeviceID, MCI_CLOSE, 0, 0); hvis MyError < > 0 da begynne MciGetErrorString (MyError, MyErrorString, MAXERRORLENGTH - 1); Showmessage (MyErrorString); end, end,