The Function Boolean sndPlaySoundA (string SoundName, ulong Flags) Library "WINMM. DLL" alias for "sndPlaySoundA; Ansi
"The Function ulong waveOutGetNumDevs () Library "WINMM. DLL
"
In the program
//play Wav
Long lul_numdevs, a
A=long (sle_1. Text)
Lul_numdevs=WaveOutGetNumDevs ()//Flags for playing style (0 synchronous playback, 1 asynchronous playback, 2 don't play the default files, 4 points to the sound file pointer to the memory address, 8 looping, 16 if the currently playing, do not respond to new requests)
If lul_numdevs & gt; 0 Then
SndPlaySoundA (" C: \ Users \ lenovo \ Desktop \ aaa \ yzts WAV ", a)
End the If
Run under the source can play music compiled exe is not played lul_numdevs=0
CodePudding user response:
Without a DLL cause? Put the compiled program to try in the pb DLL