HelpF.pro

Как проиграть wav, mp3 файл

Код 1C v 8.х
 ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");
ScriptCtrl.Language = "vbscript";
ScriptCtrl.AddCode("
Function PlayS()
| Set Wrap = CreateObject(""DynamicWrapper"")
| Wrap.Register ""winmm.dll"", ""sndPlaySound"", ""i=sl"", ""f=s"", "r=l""
| PlayS = Wrap.sndPlaySound(""C:\Sounds\newemail.wav"", SDN_ASYNC)
| End Function");
ScriptCtrl.Run("PlayS");

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/425.html