Hallo Mario,
Hier ist ein Code den Du an Deine Bedürfnisse anpassen kannst:
Proc PlayMP3
Parameters mp3file$
Declare MCIcommand$,MCIError$
Let mp3file$=@Chr$(34) + mp3file$ + @Chr$(34)
Let MCIcommand$=@ADD$(@ADD$("OPEN ",mp3file$),\
" TYPE MPEGVIDEO ALIAS AUDIO")
Let MCIError$=@MCISend$(MCIcommand$)
Case %MCIError: Return MCIError$
Let MCIError$=@MCISend$("PLAY AUDIO WAIT")
Case %MCIError: Return MCIError$
Let MCIError$=@MCISend$("CLOSE AUDIO")
Case %MCIError: Return MCIError$
EndProc
Proc PlayWave
Parameters wavefile$
Declare MCIcommand$,MCIError$
Let wavefile$=@Chr$(34) + wavefile$ + @Chr$(34)
Let MCIcommand$=@ADD$(@ADD$("OPEN ",wavefile$),\
" TYPE WAVEAUDIO ALIAS AUDIO")
Let MCIError$=@MCISend$(MCIcommand$)
Case %MCIError: Return MCIError$
Let MCIError$=@MCISend$("PLAY AUDIO WAIT")
Case %MCIError: Return MCIError$
Let MCIError$=@MCISend$("CLOSE AUDIO")
Case %MCIError: Return MCIError$
EndProc
Cls
Declare ende%,Datei$,n%,Verzeichnis$
n%=0
Verzeichnis$=readini$("Hkey_1","Software\Microsoft\Windows\CurrentVersion\
\Explorer\Shell Folders","Personal")
ChDir Input$("Verzeichnis auswählen","Auswahl",Verzeichnis$)
ClearList
AddFiles "*.mp3"
AddFiles "*wav"
Whilenot ende%
If %getcount > -1
Datei$=ListBoxItem$(n%)
Print Datei$
If Right$(Upper$(Datei$),4)=".MP3"
PlayMP3 Datei$
Case Len(@$(0)) > 0:print @$(0)
ElseIf Right$(Upper$(Datei$),4)=".WAV"
PlayWave Datei$
Case Len(@$(0)) > 0:print @$(0)
EndIf
Inc n%
EndIf
case n%=%getcount + 1:ende%=1
Wend
Gruß
Jörg
|