Sergey-13 » 09.02.2004 (Пн) 12:40
это в модуль
Declare Function sndPlaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As String) As Long
Public Const SND_ALIAS = &H10000
Public Const SND_SYNC = &H0
Public Const SND_NOWAIT = &H2000
Public Const SND_LOOP = &H8
это в код
Dim lRetVal As Long
lRetVal = sndPlaysound("òâîé çâóê", SND_SYNC)
lRetVal = sndPlaysound("SystemStart", SND_ALIAS + SND_SYNC + SND_NOWAIT)