🚀 go-pugleaf

> 
> $B65$($F$$$?$@$-$?$$$N$O(J
> bitblt$B$N;H$$J}!"(J
> wav$B%U%!%$%k$r!":F@8$9$kJ}K!!J$J$s$+$N(JAPI$B$r;H$&$3$H$K$J$C$F$$$k$O$:!K(J
> $B$G$9!#(J
> $B;HMQ$9$k%3!<%I=q$-9~$s$GD:$1$l$P9,$$$G$9!#(J
> $B$^$?!"(Jbitblt$B$r;H$C$F!"3($rF0$+$9J}K!$K$D$$$F$b65$($F2<$5$$!#(J


wav$B%U%!%$%k$r!":F@8$9$kJ}K!(J

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public Sub PlayWave(f$)             'f$=wav$B$N%U%!%$%kL>!J%Q%9$,DL$C$F$$(J
$B$J$1$l$P%U%k%Q%9$G!K(J
  Dim RET As Long
  
  If waveOutGetNumDevs() = 0 Then   'waveOutGetNumDevs$B$G%&%'!<%V(J $B%G%P%$(J
$B%9$,;HMQ$G$-$k$+%A%'%C%/$7$^$9(J
    Beep
    Exit Sub
  End If
  
  RET = sndPlaySound(f$, 1)         'wav$B$N%U%!%$%k$N:F@8(J
  
End Sub



bitblt$B$K$D$$$F$O!"(JVB$B$N%5%s%W%k$K$"$C$?$H;W$$$^$9!J!)!K$N$G!"$=$A$i$r;2>H(J
$B$7$F$_$F$/$@$5$$(J


-- 
   Hiroshi Kamata        vXX//r
   kamata@ingnet.or.jp   (Q Q )
---------------------oOOo-(_)-oOOo----