Add(MainForm,2953706,70,140)
{
Width=650
Height=474
link(onCreate,14481332:doEvent1,[(142,160)(142,118)])
}
Add(Volume,5593165,238,112)
{
}
Add(DoData,3257486,182,112)
{
Data=Integer(0)
link(onEventData,5593165:doVolume,[])
}
Add(InlineCode,3935702,238,154)
{
@Color=16777130
WorkPoints=#5:doGet|
EventPoints=#5:onBit|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,kol,Share,Debug,mmsystem;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|23: onName: THI_Event;|21: onPC: THI_Event;|22: onBit: THI_Event;|50: procedure doGet(var _Data:TData; Index:word);|5: end;|0:|0:|14:implementation|0:|48:function SetVolume(const volL, volR: Word):bool;|4: var|17: hWO: HWAVEOUT;|24: waveF: TWAVEFORMATEX;|14: vol: DWORD;|6: begin|24: // init TWAVEFORMATEX|36: FillChar(waveF, SizeOf(waveF), 0);|47: // open WaveMapper = std output of playsound|50: waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);|29: vol := volL + volR shl 16;|16: // set volume|29: waveOutSetVolume(hWO, vol);|21: waveOutClose(hWO);|5: end;|0:|28:procedure THiAsmClass.doGet;|5:begin|15:SetVolume(0,0);|20: _hi_onEvent(onBit)|0:|4:end;|4:end.|
}
Add(WebBrowser,9925252,476,91)
{
Left=10
Top=10
Width=610
Height=415
URL="https://www.youtube.com/watch?v=RhMYBfF7-hE"
Silent=0
}
Add(Hub,14481332,147,112)
{
link(onEvent1,3257486:doData,[])
link(onEvent2,3935702:doGet,[(199,125)(199,160)])
}
в виндовом микшере громкость регулируется нормально при помощи кода и компонента, а вот звук остаётся прежний, хотя если регулировать звук в микшере то он регулируется, так же например сторонняя утилита тоже нормально регулирует Audio Router