1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Lotus и внешние библиотеки функций

Проигрывание файла "tada.wav" с помошью виндовой библиотеки winmm.dll, а именно её функции sndPlaySoundA.

Declare Function mySound Lib "winmm.dll" Alias "sndPlaySoundA" (Byval par1 As String, Byval par2 As Long) As Long 

Sub Click(Source As Button)
    Dim res
    Res = mySound("C:\WINDOWS\Media\tada.wav", 1) 
End Sub

Поделиться