This function returns the current status of the given drive. Status is described like so:
TSDL_CDStatus = (
If the drive has a CD in it, the table of contents of the CD and current play position of the CD will be stored in the SDL_CD structure.
The macro CD_INDRIVE is provided for convenience, and given a status returns true if there's a disk in the drive.
Note: SDL_CDStatus also updates the TSDL_CD structure passed to it.
function playTrack( track : integer ) : integer;
playing : integer;
playing := 0;
if ( SDL_CDInDrive( SDL_CDStatus( cdrom ) ) ) then
// clamp to the actual number of tracks on the CD
if ( track >= cdrom.numtracks ) then
track := cdrom.numtracks - 1;
if ( SDL_CDPlayTracks( cdrom, track, 0, 1, 0 ) = 0 ) then
playing := 1;
Result := playing;