v8.x: Как проиграть wav, mp3 файл - 1С-ИнтеГрация

v8.x: Как проиграть 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");  

 

 



Назад в раздел