使用
SDL;
乏
CDRom:繩子;
i:整數;
//預置SDL第一
如果(SDL_Init((SDL_INIT_CDROM)<0)那時
開始
MessageBox 0,PChar格式化Couldn t預置SDL:%s'[,SDL_GetError'],錯誤,MB_OK或者MB_ICONHAND;
SDL_Quit;
使(1)停下來;
末端;
從多少裡面把光碟推動力連接到系統//發現
CDRom:=格式化可用推動力:%d,SDL_CDNumDrives+#13#10;
向SDL_CDNumDrives 1可以替代i:=0
開始
CDRom:=CDRom+格式驅動%d:"%s",i,SDL_CDName((i)+#13#10;
末端;
MessageBox((0,CDRom',資訊',MB_OK或者MB_ICONHAND);
乏
cdrom:PSDL_CD;
狀況:TCDstatus;
status_str:繩子;
cdrom:=SDL_CDOpen((0);
如果cdrom那時=零
開始
MessageBox 0,PChar格式化Couldn t開放預設的光碟推動力:%s'[,SDL_GetError'],錯誤,MB_OK或者MB_ICONHAND;
使(2)停下來;
末端;
狀況=SDL_CDStatus((cdrom);
把的狀況裝入盒子
CD_TRAYEMPTY:
開始
status_str:='盤子空瓶';
末端;
CD_STOPPED:
開始
status_str:='停止';
末端;
CD_PLAYING:
開始
status_str:='演奏';
末端;
CD_PAUSED:
開始
status_str:='停下來';
末端;
CD_ERROR:
開始
status_str:='錯誤狀態';
末端;
末端;
status_str:=格式驅動狀況:%s,status_str+#13#10;
如果(狀況>=CD_PLAYING)那時
開始
int m,s,f;
FRAMES_TO_MSF((cdrom>cur_frame,&m,&s,&f);
格式化(現時玩軌跡%d,%d:%2.2d,cdrom.track[[cdrom.cur_track].id,m,s);
末端;
乏
cdrom:PSDL_CD;//假定這個已經已經是set..
i:整數;
m,s,f:整數;
status_str:繩子;
.
.
.
SDL_CDStatus((cdrom);
status_str:=格式驅動軌跡:%d,cdrom.numtracks+#13#10;
向cdrom.numtracks 1可以替代i:=0
開始
FRAMES_TO_MSF((cdrom.track[[i].length,@m,@s,@f);
如果(f>0)那時
inc((s);
status_str:=status_str+格式((\tTrack(把%d)編入索引%d:%d:%2.2d,i[,cdrom.track[[i].id,m,s]+#13#10;
末端;
乏
cdrom:PSDL_CD;//假定這個已經已經是set..
.
.
.
//玩耍整個CD:
如果那時(CD_INDRIVE((SDL_CDStatus((cdrom)))
SDL_CDPlayTracks((cdrom,0,0,0,0);
//玩耍最後軌跡:
如果那時(CD_INDRIVE((SDL_CDStatus((cdrom)))
開始
SDL_CDPlayTracks((cdrom,cdrom.numtracks-1,0,0,0);
末端;
//玩耍第一和第二軌跡和第三軌跡的10次品:
如果那時(CD_INDRIVE((SDL_CDStatus((cdrom)))
SDL_CDPlayTracks((cdrom,0,0,2,10);