Es un Cd de audio ?

Es un Cd de audio ?

Es un Cd de audio ? : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como determinar si el CD se inserta un CD de audio o no.
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp MyDeviceID : MCIDEVICEID
& nbsp & nbsp MyOpenParams : TMCI_OPEN_PARMS
& nbsp & nbsp MyStatusParams : TMCI_STATUS_PARMS
& nbsp & nbsp MyError : LongInt
& nbsp & nbsp MyErrorString : array[0..MAXERRORLENGTH - 1] of Char
& nbsp & nbsp tmpStr : Cadena
begin
& nbsp & nbsp MyOpenParams.lpstrDeviceType := 'cdaudio'
& nbsp & nbsp MyError := mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE,
longint(@MyOpenParams))
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& nbsp & nbsp & nbsp & nbsp Showmessage(MyErrorString)
& nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp final
& nbsp & nbsp MyDeviceID := mciGetDeviceID('cdaudio')
& nbsp & nbsp MyStatusParams.dwItem := MCI_CDA_STATUS_TYPE_TRACK
& nbsp & nbsp MyStatusParams.dwTrack := 1
& nbsp & nbsp MyError := mciSendCommand(MyDeviceID,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MCI_STATUS,

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MCI_TRACK o
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MCI_STATUS_ITEM,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Longint(@MyStatusParams))
& nbsp & nbsp caso MyStatusParams.dwReturn de
& nbsp & nbsp & nbsp & nbsp MCI_CDA_TRACK_AUDIO : tmpStr := 'CDROM ES el AUDIO'
& nbsp & nbsp & nbsp & nbsp MCI_CDA_TRACK_OTHER : tmpStr := 'cd-ROM NO ES de AUDIO'
& nbsp & nbsp final
& nbsp & nbsp ShowMessage(tmpStr)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& nbsp & nbsp & nbsp & nbsp Showmessage(MyErrorString)
& nbsp & nbsp final
& nbsp & nbsp MyError := mciSendCommand(MyDeviceID, MCI_CLOSE, 0, 0)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& nbsp & nbsp & nbsp & nbsp Showmessage(MyErrorString)
& nbsp & nbsp final
fin