Звуки в программе

[Ципихович Эндрю]

здравствуйте, скачал их например отсюда
https://zvukipro.com/user-interface/...-montazha.html
прежде чем выбрал звук для скачивания прослушал его там на сайте, также там есть увеличение\уменьшение громкости при прослушивании но наверное звук скачивается с какой-то одной громкостью, так вот потом встроил эти звуки в программу, работающую с Вордом и там этот звук уже слышится НЕ так громко как хотелось бы, как увеличить его громкость? настроить его громкость, регулировка громкоговорителя в правом нижнем углу экрана НЕ подходит, так как получится - одно лечим, другое калечим, спасибо

[NetSpace]

1) в несложной программе-редакторе (типа GoldWave, я такую использую) можно увеличить амплитуду всей звуковой дорожки
2) можно программно увеличивать громкость в системе.
например, в Delphi я делал это так (строки выделены жирным):

//----- выводим на экран результат теста ---------------------------------------
procedure TForm1.OutRes;
var i,ocn:Integer;
    hResource:THandle;
begin
   //----- громкость системы на 100% -------------------------------------------
   CoCreateInstance(CLASS_IMMDeviceEnumerator,nil,CLSCTX_INPROC_SERVER,IID_IMMDeviceEnumerator,deviceEnumerator);
   deviceEnumerator.GetDefaultAudioEndpoint(eRender,eConsole,defaultDevice);
   defaultDevice.Activate(IID_IAudioEndpointVolume,CLSCTX_INPROC_SERVER,nil,endpointVolume);
   endpointVolume.SetMasterVolumeLevelScalar(1.0,nil);
   //----- подводим итоги
   Memo1.Clear;
   CBut(0);
   for i:=1 to 10 do Neg

и где-то ниже, где озвучивается оценка за тест, воспроизвожу из ресурса звук формата *.WAV:

 hResource:=LoadResource(hInstance,FindResource(hInstance,'MYWAVE5',RT_RCDATA));
      PlaySound(LockResource(hResource),0,SND_MEMORY+SND_ASYNC+SND_NOSTOP);
      FreeResource(hResource);

слышно на весь кабинет.

[Ципихович Эндрю]

NetSpace спасибо за ответ, Delphi это хорошо, а нет кода на питоне?
2
скачал GoldWave - вроде смотрел была русская версия, оказалась английская, подскажите как сделать желаемое, как я понимаю открыть=опен файл, а далее как?

[NetSpace]

на скриншоте показано.
всегда пожалуйста!
кнопка MaxMatch

[Ципихович Эндрю]

NetSpace спасибо за ответ, у меня версия GoldWave 6.78 там кнопка со значком динамика, справа от него восклицательный знак - "!" и по громкости там есть только +20 к номиналу, так, что ХЗ как у Вас получилось

Сообщение от NetSpace

слышно на весь кабинет

+20 уже лучше, спасибо

[NetSpace]

а потом сохранённый файл снова открыть и снова усилить. и так до тех пор, пока результат громкости вас не удовлетворит..

[Ципихович Эндрю]

понятно, спасибо

[NetSpace]

чего хоть за программу-то такую делаете, что с Ворд'ом связана? какой-то автопоиск плагиата или автозамена некорректных понятий на корректные (типа "чёрный" на "афроамериканец")?

[Ципихович Эндрю]

Сообщение от NetSpace

чего хоть за программу-то такую делаете, что с Ворд'ом связана? какой-то автопоиск плагиата или автозамена некорректных понятий на корректные (типа "чёрный" на "афроамериканец")?

так это же звуки они нигде не помешают в ПО......
если коротко, то ввёл например текст "у1" должно ПО понять, что юзер хочет заменить на "ул. 1-я" и предложить эту замену

[NetSpace]

или "у 1-го поворота направо"...