Что нового

Проигрывание звука

EWR

Новичок
Сообщения
30
Репутация
1
Скажите, я хочу чтоб при начале определенной функции проигрывался звук, я использую такой код:

Код:
resourceplaysound("TEST.WAV")

Это правильно или нет?
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
Я делаю так:
Код:
_WMP_SoundPlay(@ScriptDir & '\alarm.mp3')

Func _WMP_SoundPlay($sFile)
	$oWMP = ObjCreate("WMPlayer.OCX.7")
	While 1
		$oWMP.Url = $sFile
		$oWMP.Settings.Volume = 100
		$oWMP.Controls.Play
		Do
		Until $oWMP.PlayState = 1
		Sleep(500)
	WEnd
EndFunc   ;==>_WMP_SoundPlay

Это проигрывает бесконечно... :smile:
 
Автор
E

EWR

Новичок
Сообщения
30
Репутация
1
Мне надо вшить в саму программу этот звук, и чтоб он играл это можно реализовать?
 

DarWiM

Продвинутый
Сообщения
527
Репутация
90
EWR
А чем Вам приведенные примеры не нравятся?
 

Fever

Скриптер
Сообщения
308
Репутация
112
Прекрасная статья от Yashied
http://autoit-script.ru/index.php/topic,2849.0.html#post_16

или

Код:
FileInstall
SoundPlay
 
Верх