怎样用mediaplayer控件判断是否是音频还是视频？

case MediaPlayer1.DeviceType   of
 dtAutoSelect:  showmessage('1') ;
 dtAVIVideo:       ; //AVI
 dtCDAudio:    ;
 dtDAT:     ;        //
 dtDigitalVideo :  ;
 dtMMMovie:  ;        //MOVIE
 dtOther:  ;
 dtOverlay:  ;
 dtScanner: ;
 dtSequencer:  ;
 dtVCR:       ;
 dtVideodisc :  ;
 dtWaveAudio  : ;
end余下的工作自己作罢