Cd audio ?

Cd audio ?

Cd audio ? : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article explique comment determiner si le CD est un CD audio ou pas.
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 : String
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 commencer
& ! & ! & ! & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& ! & ! & ! & nbsp Showmessage(MyErrorString)
& ! & ! & ! & nbsp Sortie
& nbsp & nbsp fin
& 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 MCI_STATUS,

& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp MCI_TRACK ou
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp MCI_STATUS_ITEM,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Longint(@MyStatusParams))
& nbsp & nbsp cas MyStatusParams.dwReturn de
& ! & ! & ! & nbsp MCI_CDA_TRACK_AUDIO : tmpStr := 'CDROM AUDIO'
& ! & ! & ! & nbsp MCI_CDA_TRACK_OTHER : tmpStr := 'CDROM n'EST PAS de l'AUDIO'
& nbsp & nbsp fin
& nbsp & nbsp ShowMessage(tmpStr)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp commencer
& ! & ! & ! & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& ! & ! & ! & nbsp Showmessage(MyErrorString)
& nbsp & nbsp fin
& nbsp & nbsp MyError := mciSendCommand(MyDeviceID, MCI_CLOSE, 0, 0)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp commencer
& ! & ! & ! & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& ! & ! & ! & nbsp Showmessage(MyErrorString)
& nbsp & nbsp fin
fin