Как реализовать регулятор громкости . Delphi , Мультимедиа , Аудио

Переписывать на Delphi, думаю, ни к чему. Надо лишь не забыть добавить uses MMSystem; Громкость отдельных каналов очень просто устанавливается через auxSetVolume и аналогичные.

Для реализации регулятора громкости в Delphi можно использовать модуль MMSystem и его функции для управления микшером системы. Функция GetMasterVolumeControlID используется для получения идентификатора контроля громкости, а функция SetMasterVolume - для установки громкости.

library VolumeRegulator;
uses MMSystem;

function GetMasterVolumeControlID: DWORD;
var
  mxl: TMixerLine;
  mxc: TMixerControl;
begin
   // Получение идентификатора линии
  mxl.cbStruct := sizeof(TMixerLine);
  mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
  if not MixerGetLineInfo(ghmx, mxl, MIXER_OBJECTF_HMIXER or MIXER_GETLINEINFOF_COMPONENTTYPE) then
    Result := 34;
   // Получение идентификатора контроля
  mxc.cbStruct := sizeof(TMixerControl);
  mxc.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
  if not MixerGetLineControls(ghmx, @mxc, MIXER_OBJECTF_HMIXER or MIXER_GETLINECONTROLSF_ONEBYTYPE) then
    Result := 34;
  Result := mxc.dwControlID;
end;

function SetMasterVolume(dwVolume: DWORD): Boolean;
var
  mxcd: TMixerControlDetails;
begin
   // Инициализация деталей контроля микшера
  mxcd.cbStruct := sizeof(TMixerControlDetails);
  mxcd.dwControlID := GetMasterVolumeControlID;
  mxcd.cChannels := 1;
  mxcd.cMultipleItems := 0;
  mxcd.cbDetails := 4;

   // Установка громкости
  if not MixerGetControlDetails(ghmx, @mxcd, 0) then
    Result := False;
  mxcd.dwValue := dwVolume;
  if not MixerSetControlDetails(ghmx, @mxcd, 0) then
    Result := False;
  Result := True;
end;

initialization
ghmx := OpenMMSystem();

finalization
CloseMMSystem(ghmx);

Обратите внимание, что вам нужно заменить ghmx на валидный.handle микшера.

Для использования этой библиотеки добавьте ее в раздел uses вашего проекта и вызовите функцию SetMasterVolume, чтобы установить громкость. Например:

program VolumeRegulatorDemo;
uses
  MMSystem,
  VolumeRegulator;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetMasterVolume(50); // Установка громкости в 50%
end;

Это установит громкость в 50%. Вы можете изменить значение, чтобы изменить громкость.

Как реализовать регулятор громкости: статья объясняет, как создать программный интерфейс для управления громкостью на Windows с помощью библиотеки MMSystem.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS