Lotus и внешние библиотеки функций

2015-05-06T08:08:13Z

Проигрывание файла "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

Форум компьютерной помощи — Lotus и внешние библиотеки функций

Lotus и внешние библиотеки функций