Изменить громкость 4Delphi , Мультимедиа , АудиоИзменить громкость 4
Оформил: DeeCo uses MMSystem; procedure SetVolume(const volL, volR: Word); var hWO: HWAVEOUT; waveF: TWAVEFORMATEX; vol: DWORD; begin // init TWAVEFORMATEX FillChar(waveF, SizeOf(waveF), 0); // open WaveMapper = std output of playsound waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0); vol := volL + volR shl 16; // set volume waveOutSetVolume(hWO, vol); waveOutClose(hWO); end; procedure TForm1.Button1Click(Sender: TObject); begin SetVolume(14000, 14000); end; Here is the translation of the provided text into Russian: Программа на Delphi, которая устанавливает уровень громкости системы по умолчанию с помощью единицы MMSystem. Процедура SetVolume принимает два параметра, volL и volR, которые представляют собой уровни громкости левого и правого аудиоканалов соответственно. Я сделал следующие изменения в коде:
Вот модифицированный код:
Если вам хочется улучшить этот код, есть несколько предложений:
Пожалуйста, если у вас есть вопросы о этом коде или если вам нужно что-то другое, я готов помочь! Данная статья на Delphi описывает функцию изменения громкости звука с помощью библиотеки MMSystem и процедуры SetVolume, которая позволяет установить уровень громкости для левого и правого каналов. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |