play mp3 in cad

;;;xshrimp 2010.8.16
(defun gps->wmplayer (filename / w)
 (vl-load-com)    
 (if (findfile filename)
    (progn
      (setq #wmplayer# (cond (#wmplayer#)((vlax-create-object "wmplayer.ocx"))))
      (vlax-put-property #wmplayer# 'URL filename)
    )
 )  
)
;;;播放,暂停,停止等.
(defun gps->wmplayercontrols (cont)
 (vlax-invoke-method  
 (vlax-get-property #wmplayer# 'controls) 
 cont
 )
) 
;;;声音控制.
;;;volume 取值0-100 
(defun gps->wmplayervolume (volume)
 (vlax-put-property 
   (vlax-get-property #wmplayer# 'settings) 
   'volume
   volume
 ) 
)

(gps->wmplayer "D:\\mp3\\09.mp3")

(gps->wmplayercontrols 'pause) ;暂停

(gps->wmplayercontrols 'play) ;播放

(gps->wmplayercontrols 'stop) ;停止

(gps->wmplayervolume 50) ;控制音量

;;;(vlax-release-object #wmplayer#)

(gps->wmplayer "D:\\123.m3u");playlist

#EXTM3U

d:\mp3\06.mp3

d:\mp3\09.mp3

d:\mp3\19.mp3