play wav file

! inside the global map
Module('WINAPI')
   SndPlaySound(*LPCSTR,UNSIGNED),BOOL,PROC,PASCAL,RAW,NAME('SndPlaySoundA')
END

! data
l:SoundFile cstring(255)

! code
  l:SoundFile = 'test.wav'
  SndPlaySound(l:SoundFile,1)  ! play sound and return
  SndPlaySound(l:SoundFile,0)  ! play sound and wait

Schreibe einen Kommentar