波形设备命令字符串
capability waveaudio<arg> ......can eject,can play,can record,can save,compounddevice,device type,has audio,has video,inputs,outputs,uses files
close waveaudio
cue waveaudio<arg>.......input,output
delete waveaudio<arg>....from position,to position
info waveaudio <arg>......input,file,output,product
open waveaudio<arg>.......alias name,buffer size,shareable
pause waveaudio
play waveaudio<arg>.......from position,to position,fast,repeat,reverse,slow
record waveaudio<arg>.....insert,from position,to position,overwrite
resume waveaudio
save waveaudio<arg>.......[filename]
seek waveaudio<arg> .......to position,to start,to end
set waveaudio<arg>.........any input,any output,audio all off,audio all on,audio left on/off,audio right on/off
channels number
status waveaudio<arg>......channels,current track,format tag,input,length
length track number,number of tracks ,output,position,position track number
stop waveaudioThe End
capability waveaudio<arg> ......can eject,can play,can record,can save,compounddevice,device type,has audio,has video,inputs,outputs,uses files
close waveaudio
cue waveaudio<arg>.......input,output
delete waveaudio<arg>....from position,to position
info waveaudio <arg>......input,file,output,product
open waveaudio<arg>.......alias name,buffer size,shareable
pause waveaudio
play waveaudio<arg>.......from position,to position,fast,repeat,reverse,slow
record waveaudio<arg>.....insert,from position,to position,overwrite
resume waveaudio
save waveaudio<arg>.......[filename]
seek waveaudio<arg> .......to position,to start,to end
set waveaudio<arg>.........any input,any output,audio all off,audio all on,audio left on/off,audio right on/off
channels number
status waveaudio<arg>......channels,current track,format tag,input,length
length track number,number of tracks ,output,position,position track number
stop waveaudioThe End
LPCSTR lpszSound,
UINT fuSound
);第一个参数传一个空字符串""即可。
sndPlaySound vbNullString, &H1
aWave = LoadResData("A", "WAVE")Private Function PlayWave() As Boolean
Dim r As Long
Dim uFlags As Long
uFlags = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
r = sndStopSound(0, SND_ASYNC)
r = sndPlaySound(aWave(0), uFlags)
End Functionr = sndStopSound(0, SND_ASYNC)停止当前播放