打開一光碟為接近的機會的宣傳活動.如果推動力是無效或者忙碌,它歸還一有關成功或者零 SDL_CD結構.這片新近打開光碟成為預設的CD,當其它CD功能是通過一個無束縛力的 光碟柄的時候,使用.
給推動力編號以0開始.推動力0是系統預設的光碟.
乏
cdrom:PSDL_CD;
cur_track:整數;
分鐘,sec,結構:整數;
CDRomText:繩子;
.
.
.
SDL_Init((SDL_INIT_CDROM);
為CD檢查駕駛
如果(SDL_CDNumDrives<1)那時
開始
//沒有一個被發現
MessageBox((0',沒有可用'唯讀光碟裝置',錯誤',MB_OK或者MB_ICONHAND);
SDL_Quit;
停止((-1);
末端;
//打開預設的推動力
cdrom:=SDL_CDOpen((0);
如果開放,//做嗎?如果cdrom是沒有檢查
如果cdrom那時=零
開始
MessageBox 0,PChar格式化Couldn t開放推動力:%s'[,SDL_GetError'],錯誤,MB_OK或者MB_ICONHAND;
SDL_Quit;
停止((-1);
末端;
//印刷容量資訊
CDRomText:=格式名字:%s,SDL_CDName((0)+#13#10;
CDRomText:=CDRomText+Fromat軌跡:%d,cdrom.numtracks+#13#10;
向<cdrom.numtracks 1可以替代cur_track:=0
開始
FRAMES_TO_MSF((cdrom.track[[cur_track].length,分鐘,sec,結構);
CDRomText:=CDRomText+Fromat\tTrack%d:長度%d:%d,cur_track,分鐘,sec+#13#10;
末端;
SDL_CDClose((cdrom);